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Only  The 
Name  Is  New 


The  professional, 
full-featured  software 
line  from  Digital  Solutions 
is  now  called  Pocket 
Software. 

Pocket  Writer  128/64. 
Pocket  Filer  128/64. 
Pocket  Planner  128/64. 
The  names  are  new,  but 
this  super  software  is  stij 
the  same. 

From  now  on,  when  you 
hear  the  word  Pocket,  it 
means  software  fhot's 
full-featured,  handy  and 
easy  to  use. 

Pocket  Software  of  priced 
that  won't  pick  your 
pocket. 
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Ybur  Commodore  128  or 


You  want  the  very  best  software  you  con  find  for  your 
Commodore  128  or  64,  right? 

You  want  integrated  software  —  word  processing, 
database  and  spreadsheet  applications  —  at  a  sensible 
price.  But,  you  also  want  top-of-the-line  features. 
Well,  our  Pocket  128/64  software  goes  one  better. 


Serious  software 
that's  simple  to  use. 


With  P6ci<efT28  or  64,  you'll  find  al!  the  features  you 
can  imagine . . .  and  then  some.  And  Pocket  128/64  is  so 
easy  to  use,  you  won't  even  need  the  reference  guide. 
On-screen  and  in  memory  instructions  will  have  you  up 
ond  running  in  less  than  30  minutes,  even  if  you've  never 
used  a  computer  before. 

The  price?  It's  as  low  as  you'd  expect  for  a  line  of 
software  called  'Pocket'.  Suggested  Retail  Price  for  the  64 
software  is  $39.95  (U.S.)  and  $49.95  (U.S.)  for  the  128. 
Any  of  the  64  products  moy  be  upgraded  to  their  128 
version  for  $15.00  (U.S.)  +  $3.00  shipping  and 
handling.  {Available  to  registered  owners  from  Digital 
Solutions  Inc.  only.) 

Pocket  Writer  128  or  64,  Pocket  Planner  128  or  64  and 
Pocket  Filer  1 28  or  64 . . .  Solutions  at  sensible  prices 
from  Digital  Solutions  Inc. 

International  &  Distributor  enquiries  to: 

'Axrr^  Digital 
!  Solutions 


30  Wertheim  Court,  Unll2 
Richmond  Hill,  Ontario 
CanadoL4BlB9 
telephone  (416)  731-8775 


Pocket  Writer  128  and  64  ore  now  available  in  French. 
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Flight  Simulator  M 
—  Scenery  Disks 

The  Challenge  of  Accomplished  Flight 

With  a  realism  comparable  to  (and  in  some  ways  even  surpassing) 
$100,000  aircraft  flight  simulators.  Flight  Simulator  II  inciurfes  full 
flight  instrumentation  and  avionics,  and  provides  a  full-color  out-che- 
v/indow  view.  Instruments  are  arranged  in  the  format  standard  to 
modern  aircraft.  All  the  radios  needed  for  IFR  flight  are  included. 
Front,  rear,  left,  right,  and  diagonal  views  let  you  look  in  any  direction. 
Program  features  are  clearly  documented  in  a  96-page  Pilot's  Operat- 
ing Handbook, 

For  training  in  proper  flight  techniques,  Flight  Simulator  II  includes 

another  96-page  instruction  manual,  compiled  by  two  professional 
flight  instructors  with  over  8,000  hours  flight  time  and  12,000  hours 
of  aviation  teaching  experience.  You'll  learn  correct  FAA- 
recommended  flight  procedures,  from  basic  aircraft  control  through 
instrument  approaches.  To  reward  your  accomplishments,  the 
manual  even  includes  a  section  on  aerobatic  maneuvers. 

The  Realism  and  Beauty  of  Flight 

Go  sight-seeing  over  detailed,  realistic  United  States   -    

scenery.  High-speed  graphic  drivers  provide  an 

animated  out-the-window  view  in  either  day,  dusk,  or  _ 

night  flying  modes. 

Flight  Simulator  11  features  over  80  airports  in  four 
different  scenery  areas:  New  York,  Chicago,  Seattle, 
and  Los  Angeles.  Six  additional  Scenery  Disks  covering 
the  entire  Western  half  of  the  United  States  are  now 
available  in  IBM  and  C64/ 1 28  disk  formats. 
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Apple  and  Atari  versions  will  be  released  soon.  Each  disk  covers  a    .' 
geographical  region  of  the  country  in  detail,  and  is  very  reasonably 
priced. 

The  Pure  Fun  of  "World  War  I  Ace" 

When  you  think  you're  ready,  you  can  test  your  flying  skills  with  the 
"World  War  I  Ace"  aerial  battle  game.  This  game  sends  you  on  a 
bombing  run  over  heavily-defended  enemy  territory.  Six  enemy 
fighters  will  attempt  to  engage  you  in  combat  as  soon  as  war  is 
declared.  Your  aircraft  can  carry  five  bombs,  and  your  machine  guns 
are  loaded  with  100  rounds  of  ammunition. 

See  Your  Dealer,  Flight  Simulator  II  is  available  on  disk  for  the 
Apple  11,  Atari  XL/XE,  and  Commodore  64/128  computers  for 
$49.9S.  Scenery  Disks  for  the  C64  and  IBM  PC  (Jet  or  Microsoft 
Flight  Simulator)  are  $  1 9.95  each.  A  complete  Western  U.S.  Scenery 
six-disk  set  is  also  available  for  $99.95.  For  additional  product  or 
ordering  information,  call  (800)  637-4983. 

^  Apple  II  A  a  iradenurit  of  Apple  Cofnputer,  ln«. 

^:  Atari  XL  and  X£  arc  irademarks  of  Atari  Corp. 

Commodore  64  and  1 23  arc  trademark!  of  Commodore  El 

fflM  PC  IS  a  registered  iradcrtiarlt  of  International  Business  .  — r- 
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713  Edgebrook  Drive 
Champaign  IL  61820 

(217)  3S9-B4B2  TelM:  206995 

Order  Line:  {800)  637-4983 

|B»C»(«  in  Illinois.  Alaska,  and  Hawaul 


$10,000.00 

Atari  ST 
Programming  Contest! 

First  Prize  $5,000.00  Second  Prize  $2,500.00 

Third  Prize  $1,000.00 
Three  Honorable  Mentions  $500.00  each 

COMPUTE!  Publications,  Inc.  is  looking  for  the  very  best  original  software  for  the  Atari  ST  series 
computers.  And  to  prove  we're  serious,  we're  offering  a  total  of  $10,000.00  in  prize  money  to  the  top 
six  winners.  That's  $5,000.00  for  First  Prize,  $2,500.00  for  Second  Prize,  $1,000.00  for  Third  Prize, 
and  $500.00  each  for  three  Honorable  Mentions.  In  addition,  the  winners  will  receive  our  standard 
royalties  when  their  programs  are  published.  And  even  if  your  program  doesn't  win  a  prize,  you  can 
still  earn  purchase  fees  and  royalties  if  we  accept  your  entry  for  publication. 
Interested?  If  so,  read  these  rules: 


1.  Entries  must  be  your  original  work,  previously  unpublished.  All  those 
whose  programs  are  accepted  will  be  required  to  affirm  this  in  writing. 

2.  You  can  submit  as  many  entries  as  you  want,  but  we  cannot  consider 
programs  which  have  been  entered  in  other  contests  or  submitted  for 
publication  elsewhere  at  the  same  time. 

3.  The  deadline  is  October  1,  1986.  All  entries  must  be  received  at  our 
offices  by  this  date.  Programs  submitted  after  this  date  will  still  be  consid- 
ered for  publication,  but  will  not  be  entered  in  the  contest. 

4.  Entries  are  allowed  (and  encouraged)  in  virtually  all  software  categories: 
home  and  business  applications,  education,  recreation,  telecommu- 
nications, graphics,  sound  and  music,  utilities,  and  desk  accessories. 

5.  Entries  may  be  written  in  any  programming  language — including 
BASIC,  Logo,  C,  machine  language,  Pascal,  Modula-2,  Forth,  FORTRAN, 
and  Prolog — as  long  as  they  meet  two  requirements.  First,  if  you're  using  a 
compiled  language,  the  compiled  object  or  run-time  code  must  be  a  self- 
standing  program  that  can  be  run  by  someone  who  doesn't  own  a  copy  of 
the  language.  (Exceptions  are  ST  BASIC  and  Logo.  Since  these  languages 
come  with  the  ST,  it  can  be  assumed  that  everyone  owns  a  copy.)  Second, 
we  must  be  able  to  legally  distribute  the  program  without  incurring  licens- 
ing fees  or  other  obligations  to  the  maker  of  the  language.  If  you're  not  sure 
whether  a  certain  language  qualifies,  contact  its  maker  for  clarification. 

6.  Entries  must  be  submitted  on  a  single-  or  double-sided  S'A-inch  ST  disk 
with  both  the  run-time  code  and  source  code  included. 

7.  Entries  must  be  accompanied  by  an  article  which  explains  how  to  use  the 
program,  what  it  does,  and  so  on.  If  your  program  employs  any  new  or  un- 
usual techniques  that  you  think  will  be  of  interest  to  other  ST  pro- 
grammers, you  can  also  describe  how  the  program  works, 

8.  Submissions  which  do  not  win  a  prize  and  are  not  accepted  for  publica- 
tion will  be  returned  only  if  accompanied  by  a  self-addressed,  stamped 
mailer. 

9.  All  judging  will  be  handled  by  the  staff  of  COMPUTE!  Publications,  Inc. 
All  decisions  regarding  contest  entries  and  acceptances  will  be  solely  at  the 


discretion  of  COMPUTE!  Publications,  Inc.,  and  all  decisions  are  final.  This 
includes  decisions  regarding  creativity,  similarity  among  entries,  and  so 
forth. 

10.  Winners  will  be  announced  by  COMPUTE!  Publications,  Inc.  in  late 
1986. 

11.  This  contest  is  void  where  prohibited  by  law.  Full-time,  part-time  & 
previous  employees  of  COMPUTE!  Publications,  Inc.,  and  Capital  Cities/ 
American  Broadcasting  Corporation  are  ineligible  for  the  contest,  but  may 
still  submit  work  for  publication  at  standard  rates. 

Every  Contest  Entry  Must  Contain  This  Form: 

1  warrant  that  the  program  presently  entitled 


is  my  own  original  work 


and  that  the  work  has  not  been  submitted  for  consideration  elsewhere,  nor 
has  it  been  previously  published.  If  my  work  is  accepted  by  you,  1  under- 
stand that  your  decision  as  to  the  selection  of  winners  and  awarding  of 
prizes  is  final  and  without  recourse  on  my  part.  1  agree,  should  you  select 
my  submission,  to  sign  your  standard  contract,  which  inciudes  assignment 
of  the  copyright  of  the  program  to  COMPUTE!,  and  to  allow  you  to  use  my 
name  and  image  in  promotional  materials  and  other  forms.  [If  you  are  under 
age  eighteen,  your  parent  or  iegat  guardian  must  sign  for  you.) 

Address  entries  to: 

ATARI  ST  CONTEST 
COMPUTE!  Publications,  Inc. 
P.O.  Box  5406 
Greensboro,  NC  27403 

COMPUTE!^  Publications  Jnc.® 

Part  ot  ABC  Consumer  Magazines.  Inc.  ^^^ 

One  of  the  ABC  Publishing  Cornpxjnies 


Announcing  major  news  for  Atari  ST  users: 


DISK    &    MAGAZINE 


A  bimonthly  magazine  devoted  exciusively  to  Atari  ST  entiiusiosts  that  includes  a 
disk  containing  all  of  the  programs  found  in  each  issue. 


Atari  has  proven  the  pessimists  wrong.  The  Atari  520ST 
and  1040ST  have  become  the  bestsellers  among  the 
new  generation  of  personal  computers.  Both  are  break- 
throughs in  price  and  performance,  and  the  community 
of  ST  owners  is  growing  by  thousands  each  month. 

That's  one  reason  why  COMPUTE!  Publications  is 
announcing  a  new  magazine  specially  designed  for  ST 
users.  At  the  same  time,  we  recognize  that  the  power  of 
the  ST  presents  a  unique  challenge  to  magazines  which 
publish  program  listings.  That's  why  we're  including  a 
3V2-inch  disk  that  contains  every  program  found  in 
each  issue — ready  to  load  and  run.  No  more  typing! 

Here's  what  you'll  get  in  every  issue  of  COMPUTEI's 
Atari  ST  Disk  &  Magazine: 

•  Top-quality  programs.  Utilities.  Games.  Educational 
programs  for  youngsters.  Application  programs  for 
home  and  business.  And  since  all  the  programs  will  be 
on  disk,  there  are  few  limitations  on  length  or  lan- 
guages. A  typical  disk  might  contain  an  elaborate 
adventure  game  written  in  BASIC,  a  programming  utility 
written  in  machine  language,  a  dazzling  graphics  demo 
in  compiled  Pascal,  and  a  useful  home  or  business 
application  written  in  Forth  or  C. 

•  Neochrome  of  the  Month.  Take  a  look  at  what  com- 
puter artists  are  doing  with  the  Atari  ST.  Each  issue's 
disk  contains  a  Neochrome  picture  file  ready  for  you  to 
load  and  admire.  Are  you  an  artist  yourself?  Send  us  a 
picture  of  your  own,  and  we'll  pay  you  if  it's  published. 

•  Regular  columns.  If  you're  a  programmer — or  would 
like  to  be — you'll  love  our  columns  on  ST  programming 
techniques  and  the  C  language.  Or  check  out  our 
column  on  the  latest  events  and  happenings  throughout 
the  ST  community.  Or  send  your  questions  and  helpful 
hints  to  our  Reader's  Feedback  column. 

•  Reviews.  Honest  evaluations  of  the  latest  software 
and  hardware  for  the  Atari  ST. 

•  News  &  Products.  A  comprehensive  listing  of  the 
newest  releases  for  your  ST. 
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•  And  more:  Interviews  with  ST  newsmakers,  reports 
on  the  latest  industry  trade  shows,  and  overviews  of 
significant  new  product  introductions. 

Starting  with  the  October  issue  (available  September  1), 
COMPUTEI's  Atari  ST  Disk  &  Magazine  will  be 

found  on  newsstands  nationwide  for  only  $12.95  per 
copy,  including  disk.  Or  it  can  be  delivered  directly  to 
your  mailbox  six  times  a  year  for  only  $59,95 — a  savings 
of  over  20  percent. 


As  a  special  bonus,  if  you  order  a  prepaid 

subscription  before  August  1,  you'll  get 

the  first  issue  absolutely  free! 


To  order,  call  800-346-6767.  In  NY  212-887-8525 
or  send  check  or  money  order  to 
COMPUTEI's  Atari  ST  Disk  &  Magazine 

ABC  Consumer  Magazines,  Inc. 
Circulation  Dept./8th  Floor 
825  7th  Avenue 
New  York,  NY  10019 

COMPUTEl  Publications  jnc.^ 

Port  of  ABC  Consumer  Magazines,  inc.  ^B 

One  of  the  ABC  Publishing  Companias        Mori  is  o  tfodemarV  of  Atari  Corporation 
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erniicate  Makei: 

Because  accomplishments  deserve  to  be  recognized. 


Offer  Congratulations ! 
Say  Thanks!  Have  Fun! 

Giving  someone  a  certificate  is  a  wonderful  \ 
way  to  recognize  an  outstanding  achieve- 
ment It's  also  a  perfect  way  to  fiave  a 
little  fun. 

Certificate  Maker  gives  you  over  200 
professionally  designed  certifi- 
cates. From  strictly  official  to  fun  and 
witty,  tfiere's  something  for  everyone  and 
every  occasion.  So  you  can  surprise  a 
family  member,  praise  a  student,  applaud 
an  athlete  and  honor  an  employee  with 
great  looking  certificates.  And  each  one 
will  be  as  personal,  professional  and 
special  as  you  choose. 


^: 


Personalized  certificates 
in  minutes. 

Simply  choose  a  certificate,  select  a 
border,  type  your  message;  add  a  date  and 
signature . . .  then  print!  It's  that  quick 
and  that  easy 

You  can  even  create  a  name  file  and 
automatically  personalize  certificates  for 
everyone  in  your  class 
or  club! 


Over  200  exciting 

Certificates,  Aivards, 

Diplomas,  and  Licenses. 
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Editor's  Notes 


It's  always  a  pleasure  here  to 
launch  a  new  magazine.  It  is 
something  we  pride  ourselves 
on  doing  well,  and  our  family  of 
publications,  both  books  and 
magazines,  represents  a  signifi- 
cant and  ongoing  commitmerit 
to  quality  of  product.  We  are  a 
fluid  group,  at  least  internally, 
and  have  been  fortunate  in  that 
we  managed,  as  an  editorial 
group,  to  avoid  most  of  the  pit- 
falls of  overexpansion  that  befell 
many  of  our  publishing  col- 
leagues in  this  industry's  jarring 
setbacks  of  1984  and  1985.  Tom 
HalfhUl,  most  recently  editor  of 
COMPUTE!,  has  now  taken  the 
reins  of  our  newest  publication, 
COMPUTE'S  Atari  ST  Disk  &  Mag- 
azine. It's  our  most  massive  disk- 
based  undertaking  to  date,  and 
no  publishing  house  in  the  his- 
tory of  this  industry  has  ever 
dared  place  tens  of  thousands  of 
bound-in  disks  into  general 
newsstand  distribution.  Lance 
Elko,  long  our  editor  of  COM- 
PUTE's  GAZETTE,  is  expanding 
his  duties  to  encompass  COM- 
PUTE!. We  are  confident  this 
move  will  strengthen  COM- 
PUTE!, and  help  us  in  our  con- 
tinuing efforts  to  provide  you 
with  a  constantly  growing,  and 
improving,  publication.  We  wel- 
come Lance  to  his  new  responsi- 
bilities, and  can  assure  him, 
from  long  experience,  that  you 
out  there  will  be  the  first  to  let 
him  know  how  things  are  going. 

A  Software  Product  Note 

While  on  the  subject  of  COM- 
PUTEI's  Atari  ST  Disk  &  Magazine, 
we'd  like  to  mention  an  impor- 
tant concern.  This  is  a  truly  inte- 
grated product — the  magazine 


documents,  nurtures,  and  tutors 
the  disk.  The  programs,  like- 
wise, appear  only  on  the  disk.  In 
short,  you  need  the  two  parts  to 
make  the  whole.  One  of  our 
vendors'  biggest  concerns  for 
this  magazine  was  that  of  re- 
moval of  the  disk.  After  all,  they 
argued,  this  is  an  expensive 
item,  and  so  on.  It  is  of  major 
concern  to  us  that  you,  as  poten- 
tial readers,  be  able  to  handle 
the  magazine  and  browse  the 
printed  pages.  For  this  reason, 
you  will  find  that  the  newest 
magazine  we  publish  has  a 
bound-in  disk.  And  pages  that 
open  for  previewing.  We're  rely- 
ing on  you  to  prove  us  right. 
And,  as  always,  COMPUTE!  disk 
products  are  produced  so  that 
you  can  immediately,  and  easUy, 
create  your  own  backup.  We  do 
not  engage  in  copy-protection, 
We  expect  you  to  refuse  to  en- 
gage in  copying. 

A  Rare  Exception 

We  do  not  frequently  partici- 
pate, in  these  pages,  in  a  hand 
wringing  regarding  the  ebbs  and 
flows  of  our  staff  page.  This  is 
not,  after  all,  afternoon 
television. 

Our  rare  exception  usually 
regards  the  move  hither  or  yon 
of  an  editor  or  two  as  mentioned 
earlier  in  this  piece.  This  month 
we  must  make  a  far  more  nota- 
ble exception.  Mr.  Charles  Bran- 
non,  of  our  resident  staff,  has 
accepted  new  employment,  and 
we  want  not  only  to  wish  him 
well,  but  to  devote  to  him  a  few 
sentences  on  this  page.  Charles, 
known  by  many  of  you  as  the 
author  of  SpeedScript,  an  incred- 
ibly sophisticated  piece  of  COM- 


PUTE!'s  "giftware,"  came  to 
work  for  us  in  1980  as  a  high 
school  student,  doing  program 
listings  after  school.  (Dver  the 
years  Charles  grew  and  evolved 
into  a  very  senior  young  mem- 
ber of  our  staff,  achieving  the 
position  of  program  editor,  and 
the  person  behind  many,  many 
of  the  significant  programs  we 
have  developed  and  published 
here.  We  have  many  talented 
people,  and  would  not  wish 
these  accolades  for  Charles  to 
diminish  that  collective  excel- 
lence. But  there  is,  after  all,  only 
one  SpeedScript  and  Superfont, 
and  well,  Charles,  we'll  miss 
you,  and  we  appreciate  all  the 
tremendous  service  you  have 
provided  to  the  readers  and  us- 
ers of  these  publications  over 
the  last  few  years.  We  wish  you 
well  in  your  new  venture. 

Until  next  time,  enjoy  your 
issue.  And  watch  for  COM- 
PUTE's  Atari  ST  Disk  &  Magazine, 
appearing  on  your  local  news- 
stand in  early  September.        @ 


Robert  C.  Lock 
Editor  in  Chief 


Use  THE  Brains  YOUR 
Commodore  Wasnt  Born  With. 


Right  at  Your  Fingertips 
in  CompuServe's 
Commodore*  Forums 

Our  Commodore  Forums  involve 
thousands  of  Commodore  users  world- 
wide. These  Forums  show  you  just  how 
easy  and  fun  it  is  to  get  the  most  from 
your  Commodore  Computer. 

The  Commodore  Communications 
Forum  provides  the  latest  news  on  com- 
munications software  and  advice  on 
how  to  effectively  use  your  machine  for 
online  computing. 

The  Commodore  Progranuning 
Forum  supports  programmers  and 
developers  of  Commodore  8-bit 
computers. 

The  Commodore  Arts  and  Games 
Forum  is  for  all  Commodore  8-bit 
computers.  Compose  or  play  music, 
create  or  retrieve  colorful  graphics,  and 
download  games  software. 

The  Commodore  Amiga*  Forum  is 
the  national  resource  for  all  business 


and  entertainment  applications  in  the 
Amiga  community 

Easy  access  to  free  software. 

•  Download  fint-rate,  norxommercial  user- 
supported  software  and  utility  programs. 

•  Take  advantage  of  CompuServe's  inexpen- 
sive weeknight  and  weekend  rates  (when 
Forums  are  most  active,  and  standard  online 
charges  are  just  IOC  a  minute). 

•  Go  online  in  most  major  metropolitan  arms 
with  a  local  phone  call. 

•  Receive  a  $25.00  Introductory  Usage 
Credit  when  you  purchase  your  CompuServe 
Subscription  Kit. 

Information  you  simply  can't  find 
emywhere  else. 

Use  the  Forum  Message  Board  to 
exchange  mail  with  fellow  members. 
Join  ongoing,  real-time  discussions  in  a 
Forum  Conference — with  Commodore 
luminaries  like  Jim  Butterfield,  Jim 
Gracely,  Bob  Landwehr  and  Steve 
Punter.  Scan  Forum  Data  Ubraries  for 
free  software,  documentation  and  con- 
tributions from  Commodore  enthusiasts. 


Enioy  other  useful  services,  too.  Like 
electronic  editions  of  your  favorite  maga- 
zines, newsletters  and  articles,  including 
Family  Computing,  OMNI  Online  and 
the  Electronic  Gamer.™ 

All  you  need  is  your  Conunodore 
computer  and  a  modem. .  .or  almost 
any  other  personal  computer. 

To  buy  your  Subscription  Kit,  see  your 
nearest  computer  dealer.  Suggested  re- 
tail price  is  $39.95.  To  receive  our  free 
brochure,  or  to  order  direct,  call  800- 
848-8199  (in  Ohio,  call  614-457-0802). 
If  you're  already  a  CompuServe  sub- 
scriber, type  GO  CBMNET  (the  Com- 
modore Users  Network)  at  any !  prompt 
to  see  what  you've  been  missing. 
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Informalion  Services,  RQ  Box  20212 

5000  Arlington  Centre  Blvd,  Columbus,  Ohio  43220 

800-848-8199 
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F-15  STRIKE  EAGLE 

For  Fighter  Pilots— yVot  Sightseers 


Enjoyed  by 
over  200,000 
satisfied  computer 
figliter  pilots! 


THE  FIRST.  THE  BEST. 
THE  ONLY  REAL  COMBAT  FLIGHT  SIMULATOR. 


MAJOR  BILL 

OVER 

3000  FLYING  HOURS 


F-1  5  STRIKE  EAGLE  is  the  most  realistic,  accurate  and  fun 
combat  flying  simulation  available.  Others  have  tried  to  copy 
it.  But  none  of  them  have  ever  strapped  on  a  fighter  to 
experience  the  thrill  and  excitement  of  real  combat  fighter 
missions  like  our  Major  Bill*  has.  Compare  F-15  STRIKE 
EAGLE  versus  our  famous  competitors,  better  known  for 
their  fancy  hangar  graphics.  If  you  want  a  sIqw  sightseeing 
hangar  queen,  buy  theirs!  If  you  want  a  product  that  has  had 
over  50  outstanding  reviews,  thrilled  over  two  hundred  thousand 
satisfied  computer  fighter  pilots,  and  gives  you  real  fighter 
pilot  action,  then  you  want  F-l  5  STRIKE  EAGLE! 


COMPARE— 


7  BEAL  WISSICWS-LIBVA  TO  THE  I   2  SMALL  FICTITIOUS  FLYING  AREAS 


SOPHISTICATED  KAVIOATION  MAP.      TWO  LINES  OF  TEXT 
MULTIPLE  BWAfl  AND  WEAPONS 


PICK  ONE  W5SI0N  GROW  SET 
OFTHBEAIS 


OREAT  VALUEHHUNOREDS  Of 
HOURS  OF  PLAVTIMEI 


F-15  STRIKE  EAGLE  is  for  Commodore  64/1 28.  Atari  800/XE/XL  series.  Apple  IH- 
family.  IBM  PC  and  PCJR  computers  for  a  suggested  retail  phceafanly$34.95.Call 
or  write  for  more  information  or  Money  Order.  MC/Visa  orders.  Add  S9.5D  for  shippino 
and  handling. 

Registered  trademarks  of  Commodore  Business  Machines.  Inc.;  Atari.  Inc.  Apple  Computer  inc..  and 
International  Business  Machines.  Inc..  respectively. 

•Major  Bill  Stealey.  USAF  Reserve,  President,  MicroProse 


SIMULATION 

laO  Lakefront  Drive  •  Hunt  Valley,  MD  21030 
(301)667-1151 


Readers  Feedback 


The  Editors  ond  Readers  of  COMPUTE! 


If  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


STRINGS,  SPACE$,  And  CHR$ 

I  have  a  suggestion  for  people  who 
submit  or  translate  IBM  PC/PCjr  pro- 
grams for  publication  in  your  maga- 
zine. Whenever  a  BASIC  program  line 
requires  that  I  type  a  long  series  of 
spaces,  I  find  it  difficult  to  tell  exactly 
how  many  spaces  are  needed.  This  can 
be  frustrating,  because  the  "Automatic 
Proofreader"  keeps  signaling  an  error 
until  I  finally  get  the  right  number  by 
trial  and  error.  The  STRINGS  function 
can  easily  eliminate  this  problem.  For 
instance,  the  statement  PRINT 
STRING$(15,32)  has  exactly  the  same 
effect  as  PRINT  "  "  and 

is  much  easier  to  type  in.  STRINGS  can 
be  used  where  any  long  series  of  identi- 
cal characters  is  needed.  For  instance, 
PRINT  STRING$(40,46)  prints  a  line 
consisting  of  40  dots. 

Richard  J.  Patton 

This  is  an  excellent  suggestion,  and  the 
same  general  advice  applies  to  every  ver- 
sion of  BASIC.  Some  versions  include 
STRINGS,  which  works  exactly  as  in  IBM 
BASIC;  Amiga  BASIC  even  includes  a 
specialized  SPACES  function  for  creating 
a  string  of  spaces.  For  BASICs  that  don't 
support  either  function,  you  can  do  the 
same  job  through  concatenation.  To  create 
a  string  consisting  of  30  spaces,  for  in- 
stance, use  SP$  =  "":FOR  /-I  TO  30: 
SP$=SP$+CHR$(32):  NEXT.  This  con- 
struction is  easy  to  type  and  requires  only 
a  few  more  characters  than  printing  the 
string  in  literal  form. 

For  similar  reasons,  it's  often  prefer- 
able to  express  graphic  characters  or  un- 
usual symbols  as  CHR$  values  rather 
than  as  string  literals.  Here  are  two  differ- 
ent versions  of  a  typical  Commodore 
BASIC  line: 

le  IF  X«>'a*  THEN  QOSUB  100 

IB  IF  ««-CHR*<13S>  THEN  QOSUB  188 

The  first  version  of  line  10  uses  a 


literal  graphics  character  to  test  whether 
the  fl  function  key  has  been  pressed.  The 
second  version  performs  the  same  ttst 
with  CHR$.  To  alleviate  the  "mysterious 
character"  problem,  our  listing  conven- 
tions (see  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue)  re- 
place any  unusual  Commodore  or  Atari 
character  with  a  sequence  that's  easier  to 
read.  Here's  what  the  same  line  would 
look  like  in  a  COMPUTE!  listing: 

10    IF   X5-"[    Fl    ]"    THEN    GOSUB    100 

That's  an  improvement  over  listing 
an  indecipherable  graphics  symbol,  but  it 
still  requires  that  you  remember  the  list- 
ing convention  or  look  it  up  when  the  time 
comes.  Of  these  three  alternatives,  the 
line  with  CHR$  is  preferred  in  many 
cases,  since  it's  easy  to  read  and  type,  and 
doesn't  require  reference  to  anything  but 
the  listing.  Of  course,  where  large  num- 
bers of  characters  are  involved,  CHR$ 
may  not  be  practical. 


Spaced  Out  Operators 

I  enjoyed  Bill  Boegelein's  "Amiga  Puz- 
zle" article  in  the  May  1986  issue  of 
COMPUTE!.  I  did  have  one  problem, 
however,  that  may  be  of  interest  to  your 
readers.  The  mistake  was  mine,  not 
yours  or  the  author's,  but  the  solution 
might  help  everyone  type  in  programs 
more  accurately.  The  Play  subroutine  of 
Amiga  Puzzle  contains  a  complex  IF 
statement  that  begins  like  this: 

IF  (moaseX>rat(x,y,0>  AND  ... 

I  mistakenly  entered  that  portion  of  the 
statement  like  this: 

IF  (mou8eX,rat(K,y,0)  AND  ... 

Notice  my  inadvertent  use  of  a  period 
in  place  of  the  greater-than  operator 
(>).  Clearly,  1  forgot  to  hold  down  the 
SHIFT  key  when  typing  the  >  charac- 
ter. The  problem  arises  because  Amiga 
BASIC  lets  you  include  a  period  as  part 
of  a  variable  name.  Instead  of  perform- 
ing the  logical  comparison  triggered  by 
>,  BASIC  saw  mouseX.rat  as  the  name 
of  an  array.  Of  course,  there  is  no  such 
array  or  variable  in  the  program,  so  its 
value  was  set  to  zero,  like  all  other 
uninitialized  variables.  As  a  result,  this 
part  of  the  IF  test  is  always  false  and  the 
program's  CheckCheat  routine  can  never 


be  called. 

Although  I  was  lucky  enough  to 
find  this  error  without  much  searching, 
similar  mistakes  could  be  very  difficult 
to  detect  in  other  situations.  As  a  pre- 
cautionary measure,  I  suggest  that  pro- 
grammers always  place  a  blank  space 
on  either  side  of  a  logical  operator,  as 
shown  here: 

IF  (mouseX  >  raf<j(,y,0)  A^fD  ... 

If  the  original  line  had  been  written 
in  this  way,  my  typing  error  would 
have  been  much  easier  to  spot.  More  to 
the  point,  BASIC  itself  would  have  de- 
tected the  mistake  and  signaled  a  syn- 
tax error  immediately.  Again,  the 
problem  was  mine,  not  Mr.  Boegelein's 
or  yours.  But  it  could  easily  be  prevent- 
ed by  follovtdng  this  simple  rule. 

Jack  Purdum 

Thanks  for  the  suggestion. 

SpeedScrlpt  File 
Resurrected? 

I  recently  experienced  an  odd  thing 
when  using  SpeedScript  on  my  Commo- 
dore 128  in  64  mode.  After  writing  a 
document,  I  pressed  the  RESET  switch 
to  go  back  to  128  mode.  Then  I  decided 
to  go  back  to  64  mode  to  finish  up  the 
document.  When  I  reloaded  and  ran 
SpeedScript,  I  saw  the  same  document 
that  was  in  memory  before  I  reset  the 
computer.  Shouldn't  the  memory  have 
been  cleared  during  this  process?  Does 
this  mean  that  my  128  running  in  64 
mode  isn't  fully  compatible  with  a  nor- 
mal 64? 

Chris  Hicks 

To  answer  your  last  question  first,  this 
experience  does  not  signal  any  sort  of 
incompatibility.  Your  computer  behaved 
exactly  as  a  normal  64  with  a  RESET 
switch  would  under  the  same  circum- 
stances. The  6i's  reset  routine  does  not 
erase  or  scramble  everything  in  the  com- 
puter's memory;  that  happens  only  when 
you  turn  the  computer  off  and  on  again. 
(For  more  details,  see  "64  RAM  Report"  in 
the  June  1986  installment  of  this  column.) 
SpeedScript  erases  all  of  its  text 
storage  space  when  you  first  run  the  pro- 
gram, but  not  if  you  rerun  it  during  the 
same  session.  When  you  run  SpeedScript, 
it  checks  to  see  whether  a  special  memory 
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location  contains  the  "1  was  here  before" 
flag.  If  this  flag  is  present,  SpeedScript 
concludes  that  it  was  used  previousl}/  in 
this  session  and  sets  up  without  erasing 
any  text.  Resetting  the  computer  doesn't 
disturb  either  the  memory  area  where  text 
IS  stored  or  the  location  that  holds  the  flag. 
So  when  you  reran  SpeedScript,  the  text 
was  still  there. 

This  feature  of  SpeedScript  permits 
you  to  exit  to  BASIC  if  necessary,  then 
reactivate  the  word  processor  without  los- 
ing all  of  your  work.  As  lorig  as  you  don't 
load  a  different  program  or  perform  opera- 
tions that  change  the  contents  of  BASIC 
program  space  (or  the  memory  location 
where  SpeedScript  stores  the  flag),  any 
previous  text  should  remain  intact.  To 
play  it  safe,  of  course,  you  shouldn't  exit  to 
BASIC  more  often  than  necessary.  Speed- 
Script  permits  you  to  view  the  disk  direc- 
tory and  send  commands  to  the  disk  drive 
without  leaving  the  program. 


1541  Disk  Drive  Rattle 

I  have  seen  a  BASIC  command  that 
prevents  the  Commodore  1541  disk 
drive  from  knocking  when  protected 
software  is  loaded.  Is  there  any  way  to 
prevent  the  knocking  sound  when  you 
format  a  new  disk?  I  am  worried  that 
too  much  knocking  will  force  my  drive 
out  of  alignment. 

Tom  Smith 

While  it's  true  that  head-knocking  isn't 
particularly  good  for  the  drive,  there's  no 
easy  way  to  prevent  it  during  the  format 
process.  The  15il  drive  is  often  called  an 
"intelligent"  peripheral  because  it  con- 
tains its  own  microprocessor,  free  RAM, 
and  operating  system  in  ROM.  The  knock- 
ing sound  heard  when  you  format  a  disk  is 
deliberate.  It's  caused  by  the  format  rou- 
tine itself  which  is  permanently  recorded 
in  the  drive's  ROM. 

A  Commodore  1541  disk  contains  35 
tracks,  numbered  1-35.  Track  35  is  near- 
est the  center  hub,  and  track  1  is  the 
outermost.  The  drive  always  begins  for- 
matting with  track  1  and  proceeds  inward, 
formatting  one  track  at  a  time.  To  locate 
the  read/write  head  accurately  for  the 
beginning  of  this  process,  the  drive  steps 
the  head  outward  a  total  of  46  tracks. 
Since  the  drive  is  designed  to  access  only 
35  tracks  in  normal  use,  this  maneuver  is 
guaranteed  to  cause  a  read/write  error 
regardless  of  the  read/write  head's  initial 
position.  The  rattle  is  caused  when  the 
read/write  head  pounds  against  a  me- 
chanical metal  stopper.  The  stopper  phys- 
ically prevents  the  head  from  moving  past 
the  outer  edge  of  the  disk. 

As  you've  seen,  the  command  that 
prevents  the  head  from  knocking  in  other 
cases  doesn't  work  when  formatting.  That 
method  works  by  storing  a  smaller  than 
usual  number  in  location  $6A  in   the 


drive's  RAM.  This  location  is  a  zero-page 
counter  used  to  control  how  many  times 
the  drive  should  try  to  access  a  requested 
sector  before  giving  up  and  signaling  a 
read /write  error. 

The  reason  this  trick  doesn't  work  is 
that  the  ROM  formatting  routine,  the  rel- 
evant portion  of  which  begins  at  $FAC7  in 
ROM,  pays  no  attention  to  what's  in  loca- 
tion S6A.  After  stepping  the  head  out  46 
tracks,  the  ROM  routine  does  set  up  a 
counter(at  location  $0620),  but  that's  used 
to  keep  track  of  the  number  of  errors 
encountered  after  the  head-knock  takes 
place. 

It  is  possible  to  format  a  disk  without 
rattling  the  head,  but  the  alternatives  are 
fairly  involved  and  may  be  less  reliable 
than  the  usual  method.  The  first  catch  is 
that  you  need  the  ability  to  write  a  ma- 
chine language  routine  for  the  drive  to 
execute,  download  that  code  into  one  of 
the  drive's  RAM  buffers,  then  cause  the 
drive's  microprocessor  to  execute  it  in 
place  of  the  ROM  format  routine. 

For  those  who  are  up  to  that  chal- 
lenge, here's  one  possibility:  If  your  drive 
is  correctly  aligned,  then,  rather  than  lo- 
cating the  read/write  head  in  the  usual 
way,  why  not  use  a  commercially  format- 
ted disk  for  calibration?  Mass-produced 
commercial  disks  such  as  the  1541  Test/ 
Demo  disk  are  usually  created  on  indus- 
trial equipment,  not  1541  disk  drives,  and 
software  companies  have  a  strong  incen- 
tive to  keep  such  equipment  in  good  align- 
ment. So  any  commercial  disk  that  doesn't 
contain  deliberately  implanted  errors 
should  be  very  close  to  the  standard. 

The  idea  is  to  insert  the  calibration 
disk,  move  the  drive's'read/write  head  to 
track  1  by  reading  track  1,  sector  0,  leave 
the  read/write  head  stationary  at  that 
point,  perform  the  other  setup  tasks  re- 
quired, then  enter  the  ROM  format  rou- 
tine at  a  point  that  bypasses  the  head- 
knocking  section.  That's  a  fairly  tall  order 
for  most  programmers  and  requires  a 
much  longer  program  than  we  can  include 
in  this  space.  This  scheme  could  also  in- 
crease the  risk  of  inconsistent  results, 
since  it  relies  on  two  critical  assump- 
tions— that  your  drive  is  correctly  aligned 
and  that  the  calibration  disk  was  accu- 
rately formatted  in  the  first  place — which 
may  not  be  true  in  every  case. 

Loading  Toucti  Tabiet 
Screens  In  Atari  BASIC 

How  can  I  write  a  BASIC  program  to 
display  pictures  drawn  with  the  Touch 
Tablet  and  Atari  Artist  cartridge? 

Peter  Hinz 

Loading  Touch  Tablet  pictures  in  Atari 
BASIC  IS  quite  possible,  and  by  calling  an 
operating  system  routine,  your  BASIC 
program  can  load  the  images  at  machine 
language  speed.  But  first,  there  are  a  few 


important  points  to  cover. 

To  begin  with,  the  Atari  Artist  car- 
tridge that  comes  with  the  Touch  Tablet 
saves  pictures  in  a  special  compacted  for- 
mat to  conserve  disk  space.  That's  why,  if 
you  examine  a  disk  directory  of  Atari 
Artist  pictures,  you'll  notice  that  the  files 
are  usually  of  different  lengths.  Before  you 
can  load  these  pictures  with  a  BASIC 
program,  you  have  to  convert  them  to 
uncompacted  format. 

Although  some  people  have  written 
conversion  utilities  for  this  purpose, 
there's  an  even  simpler  method.  It's  not 
mentioned  anywhere  in  the  Atari  Artist 
manual,  but  if  you  hold  down  SHIFT  and 
press  the  greater-than  key  (>),  Atari  Art- 
ist saves  the  current  screen  onto  disk  with 
the  filename  PICTURE.  (Be  aware  that 
this  replaces  any  existing  file  named  PIC- 
TURE on  the  disk.)  The  file  PICTURE  is 
uncompacted  and  always  takes  up  62  disk 
sectors.  This  trick  is  useful  in  a  couple  of 
ways.  It  makes  it  possible  to  load  Atari 
Artist  pictures  into  other  drawing  pro- 
grams for  the  Atari  that  use  this  format, 
including  the  Atari  light  Pen's  Atari 
Graphics  cartridge  and  Datasofi's  Micro- 
painter.  And  it  also  makes  it  possible  to 
load  Atari  Artist  pictures  into  your  own 
programs. 

But  first,  another  point:  Before  load- 
ing the  picture  with  a  BASIC  program, 
you  have  to  set  up  the  proper  graphics 
mode.  Atari  Artist  (and  most  other  draw- 
ing programs  for  the  Atari)  uses  a  special 
mode  often  known  as  GRAPHICS  TL.  Of 
course,  there's  really  no  such  thing  as 
GRAPHICS  7%  but  the  term  refers  to  the 
fact  that  this  mode  has  the  same  horizon- 
tal resolution  as  GRAPHICS  7  (160  pixels) 
and  the  same  vertical  resolution  as 
GRAPHICS  8  (192  pixels,  without  a  text 
window).  Yet,  it  also  offers  the  same  num- 
ber of  simultaneous  screen  colors  as 
GRAPHICS  7  (four),  while  GRAPHICS  8 
is  limited  to  only  two  colors.  Because  it 
combines  the  best  of  both  modes,  GRAPH- 
ICS TVi  has  been  the  most  popular  mode 
for  drawing  programs. 

GRAPHICS  7%  has  always  been  sup- 
ported by  the  Atari  operating  system. 
However,  until  the  XL  and  XE  series  com- 
puters came  out,  it  was  not  available  from 
Atari  BASIC  without  making  some  special 
POKES  to  modify  the  display  list.  (The 
display  list  is  an  area  of  memory  that  tells 
the  computer  which  graphics  mode  to  dis- 
play on  the  screen.)  On  an  XL  or  XE, 
GRAPHICS  7%  is  called  GRAPHICS  35. 

The  following  BASIC  program  shows 
how  to  load  a  62-sector  screen  file  named 
PICTURE  at  machine  language  speed.  It 
should  work  with  any  uncompacted 
screen  files,  including  those  created  with 
Atari  Artist,  the  Atari  Light  Pen,  and 
Micropainter.  This  program  is  actually  a 
slightly  modified  version  of  the  program 
named  MENU  on  the  Atari  COMPUTE! 
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COMPUTE!  Books  offers  you  a 
superior  line  of  titles  for  the  new 
Atari  ST.  Packed  full  of  useful  utilities, 
exciting  games,  in-depth  tutorials,  and 
valuable  applications,  these  clearly 
written  books  bring  you  fully  tested 
information  and  entertainment  for  the 
whole  family. 


'ijTOXocnd'jTo  I 
SOUND     I 

MID 

GRAPHICS  i 

ONT>€AD^Rl] 


Programmer'. 
Guide 


The 
^Elementary 
Atari 


iSEi 


Lo^k  for  these  COMPUTE!  books  at  your  local  book  or  computer  store. 


You  can  order  directly  from  COMPUTE!  by  calling 
800-346-6767  (in  NY  call  212-887-8525)  or  by 
sending  your  payment  to  COMPUTE!  Books,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Please  include  $2.00  per  book  shipping  and  handling 
for  U.$.  and  surface  mail  or  $5.00  for  airmail.  North 
Carolina  residents  add  4.5  percent  sales  tax. 

Please  allow  4-6  weeks  for  delivery  from  receipt  of  order. 

COMPUTE!  books  are  available  In  the  U.K.,  Europe,  the  Middle 
East,  and  Africa  from  Holt  Saunders,  Ltd.,  1  St,  Anne's  Road,  East- 
bourne, East  Sussex  BN21  3UN,  England,  and  in  Canada  from 
McGraw-Hill,  Ryerson  Ltd.,  330  Progress  Ave.,  Scarborough, 
Ontario,  Canada  M1P  2Z5. 
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Part  ot  ABC  Consumer  Magazines.  Jnc, 
One  of  the  ABC  Pubusning  Companies 
825  7tti  Avenue.  6in  Floor,  New  Vork.  NY  10019 
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COMPUTEI's  Rrst  Book  of  the  Atari  ST 

Edited 

A  valuable  collection  of  ready-lo-type-in-and-use  applications,  games,  and 
utilities.  Graphics  utilitres  tike  "ST  Doodler,"  games  like  "Switchbon"  and 
'Tug-a-War,"  and  educational  programs  like  "Hickory  DickorY  Dock"  turn 
youf  Atari  ST  into  everything  from  a  business  graphics  machine  to  a  powerful 
teaching  tool.  Tutorials  show  you  how  to  add  power  to  ST  BASIC  and  how 
to  add  exdtement  to  your  own  creations  with  sound  effects.  A  disk  is  avail- 
able for  575.95  which  includes  all  the  programs  in  the  book,  203BDSK. 
(September  release) 
$16.95     ISBN  0-87455-020-3 

The  Elementary  Atari  ST 

William  B.  Sanders,  272  pages 

A  friendly,  easy-to-use  guide  to  the  Atari  ST,  this  book  takes  you  through 

connecting  your  computer,  loading  programs,  creating  graphics  and  music, 

and  writing  your  own  programs, 

$16.95     ISBN  0-B7455-024-6 

Elementary  ST  BASIC 

C.  Regena,  208  pages 

A  tutorial  and  reference  guide  to  the  ST's  impressive  graphics,  animation, 

and  sound  with  complete  descriptions  of  ST  BASIC'S  commands,  syntax,  and 

organization.  A  disk  is  also  available  for  $15.95  which  irKludes  programs 

from  the  book,  343BDSK. 

$14.95  ■  ISBN  0-87455-034-3 

COMPUTEI'S  Kids  and  the  Atari  ST 
Edward  H.  Carlson,  236  pages 

Easy-to-understand  instructor  notes,  lessons,  assignments,  and  lively  illustra- 
tions help  both  kids  and  adults  painlessly  leam  to  program  on  the  Atari  ST. 
The  latest  in  the  bestselling  series  by  this  author, 
$14.95     ISBN  0-87455-038-6 

COMPUTEI's  ST  Programmer's  Guide 

Editors  of  COMPUTE!,  356  pages 

A  comprehensive  reference  guide  to  the  Atari  ST,  this  book  eatplores  in  detail 
Logo  and  BASIC,  the  advanced  features  of  the  ST  such  as  GEM  and  TOS, 
and  every  aspect  of  prcjgramming  from  concepts  to  actual  program  writing. 
$16.95     ISBN  0-87455-023-8 

Introduction  to  Sound  and  Graphics  on  the  Atari  ST 

Tim  Knight,  197  pages 

Thorough  descriptions  of  the  Atari  ST's  color  graphics  and  sound  abilities, 

plus  all  the  information  needed  to  create  a  complete  sound  and  graphics 

system. 

$14.95     ISBN  0-87455-035-1 
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Visa  or  l^asterCard  and  your  card  is  not 

charged  until  we  ship 
^  No  waiting  period  fof  cashier's  checks. 
^  We  accept  purchase  Ofders  Irom  qualified 

corporations  Subject  to  approval, 
y  Educational  iliscounls  available  to 

qualified  inslilutions.  (See  the  toll  free 

educational  phone  number  above.) 
^  FREE  CATALOG  MEMBERSHIP 


ATARI 

65XE  [64K) S89.S9 

1 30XE  (1 2eKl S 1 39.00 

520ST  (51 2K) $369.00 

520ST  Monochrome  System 

•  520ST  with  modulator 

•  disk  driv& 

•  mouse  LOW  LOW 

•  logo  SYSTEM  PRICE 

•  Basic  $649"" 

•  1SI  Word 

»  monochrome  monitor 
520ST  Color  System 

•  520ST  with  modulalor 
»  disk  drive 

•  mouse  i_ow.  LOW 

•  logo  SYSTEM  PRICE 

•  Basic  $76900 

•  Isl  Word 

•  color  monitor 

800XL  64K $69.99 

1010  RecordBf $49.99 

10S0  Disk  Drive $149.00 

1020  Phnter $29.99 

1027  Letter  Quality  Printer 5129.00 

1030  Direct  Connect  l^odem S59.99 

Comrex  220  Atari S89.99 


APPLE 

APPLE  lie CALL 

APPLE  lie CALL 

lie  LCD  Display... ..$329.00 

COMMODORE 

Amiga  Package 

•  512K 

•  2  -  3Vy  DS  Disk  Dnves 

•  Amiga  RGB  IHonilor... $1679.00 
C64  Package 

•  064  •  C1541 

•  Taitan  22a $499,00 

C128  Package 

•  C12B        •   C1571 

•  NAPe562  Monitor $779.00 

CI  2B  Computer $269.00 

C157t  (Disk  Drive 

for  C1 28) S249.00 

C1902  (RGB  13"  Monitor 

for  C128 CALL 

CIGTO  (Modem  ter  C128]S179.00 

C1530  DalaSBtte. S39.99 

C16BQ  Auto  tuodem $59.99 

Comrex  220  (C64  inlerface) $89.99 

Xetec  SuperGraphix  BK $69.99 

Micro  R&D  126/64  Interface $59.99 

0128  Universal  Monitor  Cable.. .$19.99 


PORTABLE  COMPUTERS 


NEC 

PC-84ai    LS $699.00 

PC-8231  Disk  Drive S599.I» 

PC-8221A  Thermal  Printers $149.00 

PC-8281A  Data  Becorder $99.93 

SPECML 

•  NEC  8201  Computer 

•  8K  Ham  Cartridge  ***—-%«« 

•  300  Baud  Ivlodem SafS"" 

SHARP 

PC-1350 $149.00 

PC-1261.... $149.00 

PC-1600A $169.00 

PC.1260A $a9.99 

CE-125  Pnnler/Casselle $129.00 

CEISO  Color  Printer  Casse!le.$149.00 

CE  161   16K  HAM $129.00 

PC-700D  PC  Compatible „ CALL 


What  HEWLETT 
K'aJ   PACKARD 

41CV $139.00 

41CX $199.00 

HP  11C $49.99 

HP  12C $75.99 

HP  15C $75.99 

HP  16C $89.99 

HPIL  Module $98-99 

HPIL  Cassette  or  Printer $359  99 

Card  Roatter $143,99 

Extended  Function  Module $63.99 

Time  Module $63.99 


We  stock  the  (ull  line  of 
HP  calculator  products 


ACCESSORIES 


AMARAY 

80  Column  Printer  Stand $14.99 

CURTIS 

Side  Mount  SS-t .$19.99 

Side  Mount  AT  SS-2 .$34.99 

Universal  Stand  SS-3 $19.99 

Diamond  SP-1 $29.99 

Emerald  SP-2 $39.99 

Sapphire  SPF-1 , $49.99 

Ruby  SPF-a... $59.99 

Universal  Printer  Stand $14.99 

Static  Mat $29.99 

DATA  SHIELD 

300  VVatI  Backup $379.00 

500  Watt  Backup $589.00 

Turbo  350  Wan  Backup $449.00 

P125  Power  Director $99.99 

P150  Power  Director  v»/Modem$119.00 
KENSINGTON 

Master  Piece $99.99 

Master  Piece  + $119.00 

KEYTRONICS 

KB51SQ/KBSl6l/KB5l51Jr CALL 

KB5152B/KB5153/KB5149Jr CALL 

MEMORY  CHIPS 

4164  RAM  Chips (e3.)$1.99 

128  RAM  Chips (ea.)  $12.99 

256  RAM  Chips (ea.)  $10.99 

■Polaroid 

Palette $1399.00 

Power  Processor $229.00 

Illuminated  Slide  Mounlsr $39.99 

Polacolor2  Pack  film S18.99 


DISKETTES 


GENERIC 

5'A"  DS/DD $10.99 

IBM 

5M"  DS/DD  floppy  disks 

(Box  of  10) $26.99 

maxell 

S'/i"  SS/DD  (10) $18.99 

3W  DS/DD  (10) $29,99 

6'A"  MO-1   SS/SD  (10) $11.99 

5V«"  MD.2  DS/DD  (10) $16,99 

5'A"  MD-2-HD  tor  AT  (10) $29.99 

50NV 

MDI-SV."  SS/SD  (10) $9.99 

MD2-5V<"  DS;DD  (10) ...$13.99 

MD2HD-5'/<"  High  Dfljisily  (10).$28.99 

MFD1-3'A"  SS/DD  (10) $18,99 

MFD2-3W  DS/DD  (10) $29.99 

liTi  \ferbaiim. 

5V."  SS/DD $12.99 

5V«"  DS/DD $24.99 

Disii  Analyzer ....$24.99 

DISK  HOLDERS 

AAAARAY 

so  Disk  Tub  51/4" $9.99 

30  Disk  Tub  31/2" $9.99 

100  Disk  Tub  51/4"  w/lock $19.99 

INNOVATIVE  CONCEPTS 

Flip'n  File   10 $2.49 

Flip'n  File  SO $11,99 

Flip'n  File  Data  Case $3.99 


Anchor 

Volksmodem $59.99 

Volksmodem  300/1200 S139.00 

Signalman  Express S209.O0 

Lightning  2400  Baud S329.00 

Expressi  (PC  Halfcard] $149.00 

6480  (64/128)  300/1200  aaud..$139.00 

520  12D0  BPS  (Alan  ST) ..$149.00 

Lightening  Half  Card  (PC) $349.00 

Omega  80  (Amiga) $139.00 

/isr 

Reach  1200  Baud  Half  Card...  $399  00 

DIGITAL  DEVICES 

AT300  ■  300  Baud  (Ataii) $99.99 

EVEREX 

1300  Baud  Internal  (IBM/PC)...$179.00 

[D  Hayes 

Smanmodom  300 $139  00 

SmanmorJem  1200 $389,00 

Smanmodem  12(WB $359.00 

Smartmodem  2400 $599  00 

Micfomodem  lie $149.00 

Smart  Com  II $89.99 

Chronograph $199.00 

Transet  1000 $309.00 

|Ngyation[ffi 

Smart  Cat   Plus $299.00 

J-Cat S99  99 

Novation  2400. ,. $499.00 

Ouadmodem  II 

300/1200--,-.. $339.00 

300/1200/2400 $499.00 

Kj    SUPHA 

MPP-1064  AD/AA  (C-64) $69.99 

1200  AT  (Alan  8  Bit) $149,00 

1200  ST  (520  300/1200  Baud).$149.00 


DRIVES 


tOMEDA 

A110H  Single  10 CALL 

A210H  10   +   to CALL 

A120H  Single  20 CALL 

A220H  20   +  20 CALL 

Save  on  10  &  20  Cans CALL 

TALLGRASS 
25,  35,  50.  80  meg  (PC) 

from  $1299.00 

IRWIN 

Tape  Backup CALL 

EVEREX 
60  Meg  Internal  Backup  System$799,00 

20  Mog  Streamer $699.00 

CORE 

AT20AT72MB CALL 

MOUNTAIN 

Hard  Dnves CALL 

Hard  Card  20  MB $749.00 

Hard  Card  30  MB $999.00 

Tape  Back-Up CALL 

PRIAM 

40,  60  MB  Inner  Space-     -, CALL 

Shared  Data CALL 

Shared  Space CALL 

RACOnE 

15CK)  Expansion  Chassis $379,00 

1500  Chassis  W/DMA $429.00 

2101   256K  Memory S179.0O 

2103  512K  l^emory $199.00 

CMS 

10  Meg  with  controller $369,00 

20  Meg  wish  controller $499.00 

Rambo-AT $229.00 

ALLIED  TECHNOLOGV 

Apple  II, II +  , tie  '/4  height $109,00 

INDUS 

Atari  GT $189.00 

C-64  /128  QT $189.00 

MSD 

SDl  C-64  Single $219.00 

S02  C-64  Dual $469.00 

TAHDON 
320K  5I/4'    (PC) $119,00 

TEAC 

320K5V." $119.00 


SOFTWARE  FOR  IBM 


ANSA  SOFTWARE 

Paradox $499,00 

ASHTONTATE 

Framework   IL. -..,., .„,..,. ..-.., CALL 

dBase  III  Plus CALL 

BATTERIES  INCLUDED 

Isguf    Portlolio S1 59-00 

BORLAND 

Lightening, $59.99 

Sidekick  (jnproiecied) S57.99 

Reflex $59.99 

Travelling  Sidekick S14.99 

Tufbo  Prolog S64.99 

CENTRAL  POFNT 

Copy  II  PC-Backup S29.99 

PC  Option  Qoard 584.99 

DECISION  RESOURCES 

Charlmasler $229.00 

Signmaster $159.00 

Diagram  Master $209.00 

Map  Maste/ $259,00 

FIFTH  OENERATION 

Fasi   Back $99.99 

FUNK  SOFTWARE 

Sideways $44.99 

HARVARD  SOFTWARE  INC. 

Tolal  Projecl  Manager S269.00 

Presenlalion  Graphics S239  00 

IMSi 

PC  Mou:je/Dr    Halo $119,00 

LIFETREE 

Volkswntisr   111 $149,00 

LIVING  VIDEOTEXT 

Think  Tank $109,00 

Ready $64.99 

LOTUS 

Symphony CALL 

1-2-3  Version  2 , GALL 

MECA  SOFTWARE 

Managing  Your  Money  20 $99.99 

Manage  Your  Market $89.99 

MICROPRO 

Easy $94.99 

VVordSlar  2000 $239.00 

WordStar   2000+ S289.00 

WortlSiar  Pro.  w/GL  Demo $189  00 

MICRORIM  SOFTWARE 

R:Base  5000.. $359.00 

Cloul  2.0 S129.00 

MICROSOFT 

Flighl  Simulator $34.99 

MultiPlan,.,. $129.00 

Word  3.0 5279,00 

Mouse $139.00 

MICROSTUF 

Crosstalk  XVI $89.99 

Crosstalk  Mark  IV $149.00 

Remote SB9.99 

MULTIMATE 

Mulli  Mate  Word  Proc CALL 

Advantage $269.00 

NOUNEMON 

Intuil $69.99 

NORTON 

Norton  Utilities  3.1 $57.99 

ONE  STEP 

Goll's  Best  Pinehurst S34,99 

PFS:  IBM 

Proof $59.99 

File/Graph (ea.)  $84.99 

Report , $74.99 

Wrile/Prool  Combo $84.99 

PROFESSIONAL  SOFTWARE 

Wlite-N-Spell $69.99 

THE  SOFTWARE  GROUP 

Enable S349.00 

SATELLITE  SYSTEMS 

Word  Perfect  4.1 $219.00 

SORCIM/IUS 
Accounting 

APWFUGL/INV/OE ,(ea.)  S299.00 

SuperCalc  III $199.00 

EasyWriter  II  System S239.00 

Super  Projecl $199.00 

SUBLOOiC 
Jel $37,99 


PRINTERS 


Canon 

A40,A60,A55 CALL 

LBP-BAl    Laser CALL 

#  CITIZEN 

f»1SP-10  (BO  col.) $279.00 

MSPIS  (132  col.) $419.00 

MSP-20  (80  col.) $349.00 

MSP-25  (132  col.) $509.00 

crroH 

Prowriler   1550P $299.00 

Starwnter   10-30 $299.00 

3500  Tri  Printer $1499.00 

corona 

Lazer  LP-300 - $2799.00 

DIABLO 

D25  Daisywheel $549.00 

635  Daisywheel $1099.00 

DeOIF  Daisywheel CALL 

d«isvwnter 

2000 $699.00 

EPSON 

Homewriier  10,  LX-eo CALL 

FX-BS,  FX-2a6.  RX-lOO CALL 

DX-10,  DX-20,  DX-35 CALL 

SO-2000.  Hi-aO,  HS-BO  AP-80 CAU. 

LQ-eOO.   LO-IODO CALL 

6000  Letter  Quality CALL 

6100  Letter  Quality CALL 

6200  Letter  Quality CALL 

6300  Letter  Quality CALL 

6500  Letter  Quality CALL 

5510  Dol  Matnx  Color CALL 

LEGEND 

808  Dot  Matrix  100  ops $179.00 

1090  Dot  Matrix  too  cps $259.00 

13S0  Dot  Matril  130  cps $289.00 

1385  Dot  Matrix  165  cps $339.00 

SEC 

3000  Series $779.00 

8000  Series $1099.00 

ELF  3S0 $399.00 

PSeO,  P660.  P760 CALL 

OKfDATA 

162,  183.  192.  193,  2410,  84 CALL 

Okimate  10  (Specify  C64/Atari)Sl  89,00 

Okimate  20(IBM|.  2B2,  283 ..-CALL 

Okidata  93 $299,00 

Panasofiic 

KXlOaO $199.00 

KX1091 $239.00 

KX1092 5359-00 

KX1592 ,..,.$469,00 

KX1595 5659.00 

Quadjel $399,00 

Quad  Laser CALL 

500  Leller  Quality S1B900 

550  Letter  Quality Sa99.(X) 

800  Letter  Quality $699,00 

ie@iir 

SG-IOC  (C64  Interface) CALL 

SB/SD/NX/SR  Series CALL 

Powerlype  Letter  Quality CALL 

l^xas  Instruments 

TIB50 $529,00 

TI855 $639,00 

TIB65 $799.00 

TOSHIBA 

P321  (30  column) ,,. $499,00 

P341  (132  column) $749.00 

P351  (132  column) $1049.00 


MULTIFUNCTION  CARDS 


RamVantage $349.00 

Ram  page- PC , $379,00 

Six  Pack  Premium,.... 3399,00 

Six  Pack  plus $229,00 

I/O  Plus  II $139.D0 

Advantage-AT $369,00 

Preview  Mono $299.00 

PC  Net  Cards 5379.00 

5251/11  On-line $669.00 

5251(12  Remote 5579.00 

5251/11   Plus 5719.00 

IRMA  3270.,,..^^^ $879.00 

IRMA  Print $999.00 

IRMA  Smart  Alec $779.00 

-^:^EVEREX- 

Edge  Card $259,00 

Graphics  Edge $21 9, (X) 

Magic  Card  II 5159,00 

Magic  Card  I $99.99 

EGA  Video 5299.00 

HERCI.'LE^ 

Graphics 5299.00 

Color $159,00 

^Assodstes 

IDEA  5251 .,...$549,00 

INTEL 

PCNC80S7  5MH2 

PCNC80e7-2  8  MHz 

PCNC80287  6  MHz  AT CALL 

PCNC80287a  8  MHz  AT FOR 

1010  PC-Above  Board YOUR 

1110  PS-At»ve  Board pc 

2010  AT-Atmve  Board.-.--, 

2110  AT-Atxive  Board-PS 

MYLEX 
The  Chairman $439,00 

PARADISE 

Color/Mono  Card $149.00 

Multi  Display  Card $199.00 

High  Res  Mono $16900 

Autoswitch  EGA.,; ....$379,00 

Modular  Graphics  Card $269.00 

PfcHfaYST 

Bob  Board $359,00 

QUADRAM 

Quadport-AT 5119,00 

Ubeny-AT  (128K) $349,00 

The  Gold  Quadboard 5449,00 

The  Silver  Quadboard $239,00 

Expanded  Quadboard 5179.00 

Liberty 5309.00 

OuadSprinI 5499.00 

QuadUnk 539900 

OuadColOf 5199.00 

Quadboard.AT 5399.00 

8600  EGA-  card,,.. $399.00 

STB 

EGA  Plus 5379,00 

TECMAR 

Captain  -  64 $199.00 

Graphics  Master 5469.00 

VIDEO-T 
EGA - 5399.00 

ABT 

Multi  I/O  (Apple  HI 5149.00 

DIGITAL  DEVICES 

Ape  Face  (Atari) $49.99 

U-Print  A  (Atari) $54.99 

U-A16/Buf)Br  (Atari) 574.99 

U-Call  Interface  (Atari) $39.99 

U-Pnnt  C  (C64), , 549,99 

P-16  Print  Buffer 574,99 

U-Pnnt  16appte  11c 589,99 

MICRO  R  »  D 

Apple  tic  Parallel 549.99 

Kaypra  2000  Parallel , $48.99 

C64/128 - - $59,99 

JIOfQnge  flllcfo 

Giappler  CD  (C64) $89.99 

Grappler  Plus  (lie,  lie) $89.99 

Grappler  C  (lie) $89.99 

Grappler  16K  (Me,  W*) 5139.00 

Graphicard.,,,, 569,99 

Seriall  Card 599,99 

Microbuffer  11+  64K 5169,00 

QUADRAM^ 

Miaofazer from  $13900 

Efazer  (Epson) from    579.99 


IBM  PC  SYSTEMS 

Conflgurad  lo  your  ■pacification*. 

Call  for  Best  Price! 

IBM-PC,  IBM-XT,  IBM.AT 

Safari  (730O(..^. .,,. CALL 

6300 CALL 

corona 

PPC400  Dual  Ponable $128900 

PPCXT  10  meg  Ponable $1989,00 

PC40022  Dual  Desktop $1389,00 

PC40D.HD2  10  meg $1969  00 

ITT  X-TRA  i-i-S. 

256K,  2  Drive  System -.,CALL 

256K,ia  meg  HartJ  Drive  System  CALL 
XP5,  20  meg CALL 

KP-2000  Ponable call 

Kaypro  PC CALL 


IBM  CLONE 


64QK  MB-256  installed,  150  Watt  Powor 
Supply,  XT  Keybaard,  360K  Floppy,  20 
Meg  Hard  Urns.- S999.00 

Sperry-AT as  low  as  $1749,00 

Sperry.|T as  low  as  52699  (M 

Call  for  Specific  Configuration! 
All  Models CALL 


PC-138  Series,  PC-14e  Series,  PC-lSfl 
Series,  PC-160  Series,  PC-171  Series, 
AT-20a  Series CALL 


MONITORS 


Video  300A  Amber $129,00 

Video  310A  Amber  TTL $159,00 

410  TTL  Amber  or  Green CALL 

Color  600  Hi-Res,  RGB 5399.00 

Color  722  Dual  Mode $529.00 

Color  725 CALL 

Color  730 CALL 

MAGNA VOX 

515  RGB/Composite $289,00 

613  TTL  Green $99,99 

623  TTL  Amber $99,99 

SEC 

JB1280G  TTL  Green $129,00 

JB1285A  TTL  Amber $129,00 

JC1401  Multi  Sync  RGB CALL 


PI^INCCTON 


MAX-12  Amber $17900 

HX-9  9"  RGB 5469.00 

HX-9E    Enhanced 551900 

HX-12  12"  RGB 5469  OO 

HX-12E  Enhanced 5559  00 

SR-t2  Hi-Hes ,„ $699  00 

SR-12P  Professional 5699,00 

8400  OuadchroTite  I $499.00 

8420  Amberchrome $179.00 

8500  Quad  Screen 51449.00 

115  12"  Green 5119.00 

116  12"  Amber 5129.00 

121  TTL  Green 5139.00 

122  TTL  Amber 5149.00 

220  14"  Color  Composite 5179.00 

620  640x200  RGB $439.00 

630  640x200  RGB 5489.00 

640  720x400  RGB 5539.00 


ZVM  1220  Amber $99.99 

ZVM  1230  Green $99.99 

ZVM  1240  IBM  Amber $149.00 

ZVM   135  RGB $459.00 

ZVM  1330  RGB $45900 

ZVM  1360  RGB  

ZVM  1380  E  G  Comp , 


e  DEPT.  A209 


DISK.  It's  easily  adapted  to  your  own 
BASIC  programs.  Briefly,  here's  haw  it 
works. 

Lines  10  and  160  create  a  very  short 
machine  language  routine  that  is  used 
later  to  call  a  high-speed  loading  routine 
in  the  operating  system.  Lines  170-177  set 
up  graphics  mode  7^h  on  any  Atari  com- 
puter. If  your  program  is  intended  only  for 
XL  and  XE  models,  you  can  replace  these 
lines  with  a  single  statement  such  as  170 
GRAPHICS  15+16.  Line  190  opens  the 
file  PICTURE  on  disk  and  jumps  to  the 
subroutine  at  line  980.  This  subroutine,  in 
turn,  calls  an  operating  system  routine 
which  loads  the  screen  into  memory  at  full 
speed.  Line  200  simply  loops  endlessly  so 
the  picture  stays  on  the  screen.  Press 
BREAK  or  SYSTEM  RESET  to  end  the 
program. 


nc  10  D 
K  160 


CO  170 

M   172 

KS  175 
BH  176 


CH 

177 

11 

190 

FN  200 

EC  900 

EF  990 

PL 

1000 

LN 

1010 

PI  1020 

(I 

1025 

in  cio»<7) 

ClD*-"hhh"iCID« 
R«(170) tCIO»(S} 
CI0»(7)-CHR»(22 
SRAPHICS  B+I61D 
(560) +25&«PEEK< 
SETCOLOR  4,0,  12 
LOR  0,2,10:SETC 
,2,6:SETC0LQR  2 
POKE  DL-1, 14+64 
-2  TO  194l IF  PE 
I)-15  THEN  POKE 
14 

IF  PEEKtDL+I)-l 
HEN  POKE  DL-M  ,  1 
NEXT  I 

OPEN  #1,4,0, "D: 
E"  I  ADL=>PEEK  (081 
EEI<:(B9)  :LN-7936 

9B0:CLOSE  ttl 
GOTO  200 
X-l&:REri  FilB»2 
ICC0M='S34:  ICBAD 
ICBLEN-e40:  ICST 
POKE  ICBflDR+X, 
KE  ICBADR+X+1, 
L-LNlH-INT (L/2 
L-H*25i!POKE  I 
X.LlPOKE  ICBLE 
H 

POKE  ICCQH+X,? 
(ADR(CIO«) , X) 
RETURN 


(4)-CH 
-"LV"! 
B) 

L-PEEK 
S61)+4 
iSETCO 
OLOR  1 
,0,0 
sFOR  I 
EK<DL+ 
DL+I, 

5  +  64  T 
4  +  64 

PICTUR 
I ADH-P 
:GQSUB 


,«20 
R>B36: 
AT-B33 
ADLsPO 
ADH 

56) iL- 
CBLEN+ 
N+X+1 , 

A'USR 


When  the  picture  appears,  chances 
are  the  screen  colors  won't  be  right.  You'll 
have  to  recreate  the  picture's  original  col- 
ors with  four  SETCOLOR  statements  in- 
serted somewhere  between  lines  170  and 
190.  You  can  figure  out  what  these  SET- 
COLOR  statements  should  be  by  looking 
at  the  Color  Menu  screen  in  Atari  Artist. 
The  four  color  register  numbers  along  the 
bottom  of  the  Color  Menu  screen — 0, 1, 1, 
and  3 — correspond  to  the  first  parameter 
in  the  SETCOLOR  statement.  Color  0  = 
SETCOLDR  4,  color  1  =  SETCOLOR  0, 
color  2  =  SETCOLOR  1,  and  color  3  = 
SETCOLOR  2.  The  second  parameter  in 
SETCOLOR  matches  the  color  numbers 
along  the  vertical  color  bar  on  the  Color 
Menu  screen  (0  to  15).  And  the  third 
parameter  in  SETCOLOR  is  derived  from 
the  vertical  luminance  bar  on  the  Color 
Menu  screen  (also  0  to  15,  but  use  the  even 


numbers  only).  For  example,  if  color  0  in 
Atari  Artist  is  set  to  black,  your  program 
would  need  a  statement  such  as  SET- 
COWR  4,0,0. 

Incidentally,  another  undocumented 
trick  makes  it  possible  to  load 
uncompacted-format  pictures  itito  Atari 
Artist,  too.  Simply  hold  down  SHIFT  and 
press  the  less-than  key  (<).  This  way,  you 
can  take  62-sector  pictures  created  with 
the  Atari  Light  Pen,  Micropainter,  and 
other  drawing  programs  and  modify  them 
with  the  Touch  Tablet.  If  you  then  save 
this  screen  with  Atari  Artist  in  the  usual 
way,  it's  converted  to  compacted  format. 

Commodore  SHIFT-SPACE 

Sometimes  when  typing  in  programs 
from  your  magazine  on  my  64,  I've 
come  across  a  SHIFT-SPACE.  When  I 
press  SHIFT  and  the  space  bar,  it 
doesn't  appear  any  different  on  my 
screen  from  the  normal  space.  What 
does  the  SHIFT-SPACE  character  do? 
Warren  Frederick 

There  is  a  difference  between  the  normal 
space  character  and  shifted  space.  Al- 
though they  appear  the  same  on  your 
screen,  they  are  actually  two  separate 
ASCII  characters.  The  normal  space  is 
CHRS(32)  while  the  shifted  space  is 
CHR$(160).  This  distinction  is  probably 
not  significant  in  every  Commodore  pro- 
gram where  a  {SHIFT-SPACE}  appears. 
Many  times,  the  programmer  happens  to 
be  working  in  lowercase  and  types  in  an 
entire  message  with  SHIFT  LOCK  down. 
When  this  happens,  a  shifted  space  ap- 
pears in  the  listing,  but  an  unshifted  space 
would  work  just  as  well. 

However,  sometimes  SHIFT-SPACE 
serves  a  special  purpose.  Certain  pro- 
grams use  SHIFT-SPACE  to  mark  a  posi- 
tion on  the  screen  that's  invisible  to  the 
user.  By  PEEKing  into  screen  memory,  the 
program  can  distinguish  between  shifted 
and  unshifted  spaces  even  though  both 
look  identical  on  the  screen. 

You  can  also  use  SHIFT-SPACE  to 
add  short  comments  to  disk  filenames.  If 
you  include  a  shifted  space  as  part  of  the 
filename,  the  disk  drive  treats  that  char- 
acter as  the  end  of  the  name  and  ignores 
any  characters  that  come  after  it.  But  the 
extra  characters  are  visible  when  you  list 
the  disk  directory.  For  instance,  you  might 
want  to  save  the  current  date  to  indicate 
when  a  program  was  last  revised.  This 
statement  saves  a  program  as  FILE,  fol- 
lowed by  the  date  9/22/86: 

SAVE  "FaE"+CHR$(160)  +  "/9/Z2/86",8 

After  you  execute  this  statement,  you 

can  still  load  the  program  normally,  with 
LOAD  "FILE",8.  But  when  you  list  the 
directory,  the  filename  appears  as 
FILE/9/22/86.  This  trick  is  frequently 
used  when  saving  machine  language  pro- 


grams, to  indicate  the  SYS  address  used  to 
start  the  program.  Of  course  you  are  limit- 
ed to  a  total  of  16  characters,  just  as  with 
any  other  disk  filename. 


IBM  PrtSc  Problems 

When  using  the  PrtSc  function  with  my 
PCjr  in  "IBM  Pie  Chart  Maker"  (COM- 
PUTE!, January  1985),  my  Gemini  lOX 
prints  the  chart,  but  with  thin  blank 
lines  between  each  row  of  the  chart,  as 
if  the  printer  were  displaying  text  lines. 
I  have  tried  resetting  the  line  space 
command  to  the  printer  and  tested  it  in 
immediate  mode  to  verify  that  the  line 
space  has  been  changed.  But  as  soon  as 
I  type  the  PrtSc  command,  it  seems  that 
this  command  initializes  the  printer. 
Rich  Camaish 

We've  experienced  the  same  problem 
when  using  PrtSc  with  anything  except  an 
Epson  printer.  Normally,  pressing 
SHIFT-PrtSc  just  prints  a  text  dump.  In 
order  to  dump  graphics  with  PrtSc,  you 
need  to  enter  the  GRAPHICS  command  at 
the  DOS  command  line  to  load  the  graph- 
ics print-screen  driver.  This  driver  was 
written  specifically  for  the  IBM  Graphics 
Printer,  a  relabeled  version  of  the  Epson 
MX-80. 

Apparently,  the  driver  resets  the 
printer  completely  before  starting  the 
graphics  dump,  as  if  the  printer  were 
turned  off  and  on.  (The  Epson  code  for  this 
is  ESC-@.)  It  then  sets  the  lines-per-inch 
to  8,  corresponding  to  seamless  eight-wire 
graphics  printing.  The  code  used  for  this 
function  is  different  on  the  Gemini  lOX 
and  many  other  printers  that  are  other- 
wise Epson  compatible.  Your  printer  ac- 
cepts the  reset  sequence,  though,  throwing 
it  back  to  nine  lines  per  inch  before  start- 
ing the  graphics  dump.  We've  had  the 
same  problem  with  the  IBM  Color  Printer. 

The  only  way  around  this  would  be  to 
modify  the  GRAPHICS  driver.  If  you 
know  something  about  8088  machine  lan- 
guage and  have  a  working  acquaintance 
with  the  DEBUG  utility,  you  could  search 
for  the  ESC-(^  sequence  (hex  $1F  $40)  and 
replace  it  with  two  zeros  to  null  it  out. 
However,  there  are  programs  on  the  mar- 
ket and  in  the  public  domain  that  support 
graphics  printing  with  PrtSc  for  many 
different  printers.  Check  with  your  local 
IBM  user  group  or  nearest  dealer  to  see  if 
they've  heard  of  these. 


Apple  HTAB  In  80  Columns 

I  have  an  Apple  He  with  an  extended 
80-column  card.  I  found  out  recently 
that  the  Applesoft  BASIC  HTAB  com- 
mand does  not  work  properly.  When  I 
type  the  following  line  in  80 -column 
mode,  I  get  an  incorrect  result; 

HTAB  20:PRB^T  'THIS  IS  A  TEST";: 
HTAB  1:PRINT  "A" 
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Z^^^txs  expert  system  is  like  borrowing  someone  else's 
t  experience  and  expertise  on  a  given  subject. 
/•^!  UNDERSTANDING  COMPUTERS  by  TIME-LIFE  BOOKS 
I  is  exactly  thot,  an  expert  system  on  the  subject  of 
'  computers. 
It's  not  software  based,  so  it  can't  crash.  And  since  it's  not 
machine-specific,  iJ  won't  become  outdated  easily,  which  means 
you'll  find  it  on  invaluable,  long-lived  reference  whether  you  hove 
on  IBM®PC,  on  Apple  He®,  a  multimillion  dollar  Cray®,  or  no 
computer  at  all  right  now. 

A  BRAND  NEW  SERIES  THAT  PRESENTS  COMPUTERS 
IN  A  WHOLE  NEW  WAY. 

UNDERSTANDING  COMPUTERS  is  a  new  series  of  books  that 

presents  computers  in  a  unique,  brood-based  way,  unlike  any  other 

computer  book  you've  ever  seen.  It 
gets  "under  the  hood,"  right  down 
to  the  nuts  and  bolts  of  computers 
to  explain  what  you  need  to  know 
about  them  in  plain  English. 

The  first  volume,  Compiyfer  Bosics, 
unwraps  the  mystery  of  writing 
binary  code ...  the  concept  of  logic 

gotes . . .  how  chips  are  designed . . . how  a  light  pen  works  for 

graphic  effects...  the  sequence  of  events  in  a  computer  from  the 

first  clock  pulse  to  the  last.  And  much,  much  more. 
Succeeding  volumes  cover  Softwore.  /npuf/ 

Output.  Graphics.  Networking.  The  entire  gamut  of 

computer  topics. 

EVERY  IMPORTANT  CONCEPT  IS  ILLUSTRATED 
TO  HELP  ASSURE  YOU  UNDERSTAND. 

Not  only  does  UNDERSTANDING 
COMPUTERS  give  you  all  the 
computer  background  you 
want  thot  you  won't  find 
elsewhere,  it  also  stews  you 


Of)  a  digital  record,  sound  is 
carried  hy  pi'fs  ond  spaces, 
which  are  read  fay  o  laser  beam. 


How  o  transistor 
operates  os  a  switch. 


what  it's  oil  about.  Full-color  illustrations  help  make  every  concept 
crystol  dear.  And  glossaries  of  terms  help  ensure  your  understand- 
ing. Each  volume  is  a  big  9'/i"  x  1!  W  hardcover  book  with 
approximately  128  pages. 

FREE  10  DAY  EXAMINATION. 
NO  OBLIGATION. 

Begin  to  expand  your  computer  know-how - 

now  by  examining  Computer  Bosics  for  10 

days  free.  Keep  it  and  pay  only  $12.95 

($15.95  in  Canada),  plus  shipping  and 

handling.  Then  you  can  continue  to  receive 

other  volumes  every  other  month,  always 

with  0  lO-doy  free  trial.  Keep  only  the  books  you  want. 

And  you  can  cancel  any  time.  Or  return  Compufer  Bosics  ond 

owe  nothing. 

Return  the  coupon  today,  and  stort  to  bridge  the  gap  from 
computer  buff  to  computer  expert. 
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The  computer  prints  this  line  preceded 
by  19  spaces: 

THIS  IS  A  TEST.A 

Memory  location  36  is  supposed  to  con- 
tain the  horizontal  cursor  position,  but 
in  80-coIumn  mode,  it  always  contains 
0.  The  BASIC  function  POS(O)  doesn't 
work  either.  How  can  I  determine  the 
current  cursor  position? 

William  Liao 

Many  older  Apple  U  programs,  especially 
those  written  in  machine  language,  print 
to  the  screen  by  adding  the  horizontal 
cursor  position  (CH,  location  36)  to  the 
address  of  the  first  character  in  the  cur- 
rent row  (BASL  and  BASH,  locations  40 
and  41),  then  storing  a  character  at  the 
address  that  results.  When  80-column 
hardware  is  in  use,  this  technique  could 
scramble  the  Apple's  memory,  since  the 
organization  of  80-column  screen  memory 
is  different. 

As  a  precaution,  whenever  the  Ap- 
ple's 1/0  software  accesses  the  80-column 
screen  to  move  the  cursor  or  print,  it 
resets  CH  to  0.  This  is  why  PEEmS)  and 
POS(0)  no  longer  work.  In  He  and  lie 
computers,  the  80-column  cursor  position 
is  kept  in  location  1403,  called  OURCH. 
(If  you're  familiar  with  the  Apple  II's 
memory  arrangement,  you'll  remember 
that  addresses  between  1024  and  2047  are 


reserved  for  screen  display  memory.  Since 
the  40-column  screen  is  40  X  24,  that's  a 
total  of  960  bytes  that  are  actually  used. 
The  64  unused  bytes  are  called  screen 
holes  and  are  used  to  store  I/O  variables. 
OURCH  is  one  of  these.) 

The  HTAB  command  changes  the 
cursor's  position  by  storing  a  new  value  in 
location  36.  To  keep  this  command  opera- 
tional, the  enhanced  I/O  routines  keep  a 
copy  of  CH  in  another  screen  hole,  loca- 
tion 1147  (OlDCH).  Before  each  screen 
access,  CH  arid  OLDCH  are  compared.  If 
they  are  different,  CH  must  have  been 
changed,  so  its  value  is  made  the  current 
position  by  storing  it  in  OURCH.  The  only 
time  this  doesn't  work  is  when  80-column 
mode  IS  active.  Since  CH  and  OLDCH  are 
both  set  to  zero  at  each  screen  access,  an 
HTAB  1  command  stores  zero  in  CH,  and 
there's  no  way  to  tell  thai  anything  hap- 
pened. Since  CH  and  OLDCH  still  contain 
the  same  value,  OURCH  is  not  altered. 

One  simple  way  to  move  the  current 
screen  position  to  the  first  column  is  to  use 
a  lone  PRINT  statement.  All  it  does  is 
move  the  cursor  to  the  first  column  of  the 
next  line  without  disturbing  the  display  at 
all.  Another  way  to  be  certain  of  the 
cursor's  position  in  any  display  mode  is  to 
POKE  the  new  column  value  (0-79)  into 
both  CH  and  OURCH,  In  standard  dis- 
play mode  (40  columns,  checkerboard  cur- 


sor), OURCH  is  not  used;  POKEing  a 
value  there  doesn't  seem  to  have  any 
undesirable  side  effects. 

When  the  enhanced  I/O  firmware  is 
active  (block  cursor  in  40  or  80  columns), 
you  can  find  the  current  cursor  column 
with  PEEK(1403).  To  find  the  current  col- 
umn regardless  of  display  mode,  PEEK  the 
value  in  CH.  Then,  if  it  has  a  value  of  zero, 
PEEK  at  1403.  This  should  always  give  the 
correct  position. 


EduCalc  Clarification 

A  statement  concerning  disk  ini- 
tialization in  the  review  of  Gro- 
lier's  EduCalc  spreadsheet  (March 
1986)  requires  clarification.  When 
using  an  uninitialized  data  disk, 
the  program  will  automatically 
ask  if  you  wish  to  initialize  the 
disk  and  then  lead  you  through 
an  initialization  routine.  When 
using  a  disk  that's  already  initial- 
ized, EduCalc  recognizes  that  and 
skips  the  routine. 
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COMPUTER  EYES,  capture  software  and 
MAGNIPRJNT  lt+  Only  S114.95 

COMPUTER  EyESJMAGNIPR[^T  Cannera  Syitem 
A  compJete  ready  to  run  system  for  thase  wrihout  access  to 
vrdeo  equipment.  This  iystem  intiufles  Computer  Eyes.  Magnr- 
pnni  II  + .  a  fiigfi  quaifty  aW  vjdeo  camera,  and  a  lO  rt  coaxial 
cable  With  approp/idte  conneaors  Onfy  tzn.95 

COMPUTER  EVES  aione  jwitn  capture  and  dupiay  software 
only)  I99.»I 

CompulerEyes  G.r9  Acquisilion  Software  .1 2 


Digitize  your  picture  ^A^fth 
tiie  perfect  hard  ware/ so  ft  ware 
combination:  COMPUTER  EYES 

andMAGIMJPRKVTii." 
Digitize  your  voice  with  Parrot. 

CompLJter  Eyes  lets  you  tahea^y  form  of  video ;nput  and  | 
saves  ft  as  a  fiigh-resolutron  grjphiCi  screen  Yfau  can  use  I 
a  video  camera,  VCR.  TV  cKitpyt,  video  disfc.  othier  com-  ' 
putcs,  etc.  Now  you  can  capture  your  piaure,  your 
triends  or  any  video  image  and  sfiovw  rt  on  an  Atari  I 
computef.  Computer  Eyes  is  an  innovative  slow  scan  I 
device  that  connects  t^tween  any  standard  video  source  I 
and  your  Atari  con^puter  (see  tfie  ■review jn  A.N,  A.LO.G.  f 
maganne] 

•  Do  a  complete  Hi-ftes  scan  in  under  6  secofxJs 

•  Unique  multi-ican  mode  pfovides  realistic  grey  scale  I 
images  in  Z"*  seconds,  and  up  for  more  detail  scans 

■  Full  one-year  warranty  on  parts  and  labor 

•  Pfugs  into  your  Atarr  joystick  pom  and  uses  a 
standard  video  pfiono  plug 

Now  anyone  can  create  the  kfnd  of  graphics  seen  in  this  I 
ad  When  Computer  Eyes  is  compined  with  Magniprini  I 
II  + ,  you  get  unique  capadilties  that  no  other  system  ran  I 

Olf€T 

•  Pnni  your  piaures  m  up  to  19  different  vzes,  including  I 
poster  sizes  iifveral  fe«  across 

•  Print  pictures  with  lull  snadjng  for  a  level  of  realism  | 
even  better  than  your  TV  screen 

•  lake  your  Compuipr  Eyes  images  and  modffy  them  I 
with  your  Koala  Pad.  Atari  Touch  Tablet,  Micro  1 
Illustrator  program,  of  Magmpnnt's  special  :ouch-up  I 
feature 

•  \«Drks  with  Epson.  Gerrifni.  PanasonK:.  NEC,  Cftoh.  I 
and  other  compatible  dot-matrui  pnntpj's  |850inierrace  | 
or  equivalent  requiied} 

•  Supports  all  Magniprint  II  ■♦-  features 
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"Wagniprint  t\  n  i  versatile  and  powerful  program  which  wjil  meet  most, 
If  not  all  your  print  out  n«as:  ^^^^^  M/VGAZINE 

Print  your  Alarr^  graphics  like  you've  never  seen  bolore? 
The  piui  li  jn  the  ihadinq  —  now  Magnip/irw  Jeis  you  pnni  me  hjgheK  quality  fepioductiom  o( 
your  icreens  avaiiaPJr^nywfiFf c  l(  Jetiyouchooje  ih?  shading  yoti  want  foi  the  diHerent  cokjis 
and  shades  on  the  jcreen  rt  aJlows  you  to  adj  jiuhe  sn^dej  whi(c  youi  piOureis  displayed  on  rhe 
screen,  so  what  you  le?  i^  wna  you  get  Msgniprini  pnnts  tJn«  sliadci  on  your  standard  punter 
and  paper  tsy  uyng  specially  dcugned  dot  parerns.  yielding  bettei  rookmg  output  man  you  ^ 
on  your  screen 

This  new  feaiure  is  perfect  to!  ptrnting  pictures  frorn  Koala  Pad.  fcuth  Tabltc.  Micro  llluttraiOF. 
and  others  K  will  ania«  yw  Mhrn  you  prmrpctures  rrcm  Computer  Eypi.ci  Sinp  PoKer 

Now  get  your  pictures  shaded  the  viay  you  wpnt  them 

Mftgnip'int  II II  tha  moil  pcvieiTuI  pnni  uiiliiv  avAtlaOM  lot  yt^ut  camouwr' 
It  lati-HBDr^lv  >oKwa'«|iiBtcBri  jKcu'otviy  print  GTIArnc^asMiiih  I6shkd«i 

p-Ctui**  tiom  PFIINTShOP"  PrinU  lOdinoron' vfd»Trpm '«,  pAQaFO  Qiimt  willl  s./»dOOV*(» 

Pimii  acnis  Of  dowi  ih»  pag*.  fmuIb.'  oi  inverse.  miII^  a  ca^innnri  aptian  WM-kii, 
■■iTh[)f.n|9(»>;0mDn|ibivii«i|M^£C.ClT10K  EPSON.  £  G«rTiini  (6^  inlBFlacB  D' BguHvalcnt 
taqu'^rndk  Accupia  your  own  gFaphics  Cisations  or  inosd  cr»a!Ba  ■■iT'^  Grapriic^  Mail*' '. 
M'CropBinSeF-.FunWithA.rT,  s*N  G'JP"  *  A:ariG'aphicaLigM  Pan",  &Graph-,  KMtaR»d". 
Alaii  'tciuicri  Tapiai"  P'B'ni'  Sir.p  PoiK*f '.  G'aphics  Magician",  ana  cirisrs  ■  rrciiutdiak  fnaf*v 
b^AiulituI  sdiTipl^  piCIylB*  -  D^$.  ai^aitng  g-aB''iC5  wilfi  VOU'  Standa'd  pdnlvr  and  pmo*t 
*  Special  real  Lire  i*ti  you  mtM^ryp'Ciuies  wiir- your  joystick 'Ada  tSKlIo  four  p.cTuram*  Can 
canv«r;  agrapnicsr^.Mlad  pictura  ■□  a  giaprt>f^«  mfidld  Son^fand  v>c«  v«r»a]  -  AiIqw^.  yOu 
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Promoting 
Computers 
In  School 

Kathy  Yakal,  Assistant  Features  Editor 


Via  free  or  discounted  hardware  and  software,  along 
with  special  teacher  training,  computer  hardware  manu~ 
facturers  continue  to  promote  their  microcomputers  in 
schools  at  every  level.  Here's  an  overview  of  recent  ef- 
forts to  increase  the  already  impressive  penetration  of 
this  technology  into  classrooms  across  the  land. 


Microcomputers  now  play  a  signifi- 
cant role  in  many  areas  of  educa- 
tion. But  getting  computers  into  the 
classroom  and  deciding  how  they 
are  best  used  continue  to  be  sub- 
jects of  much  debate.  A  combina- 
tion of  factors  has  slowed  the 
process  even  further:  the  problems 
of  implementing  a  new,  evolving 
technology;  the  chaotic  atmosphere 
of  the  computer  industry  itself;  the 
computer  education  of  teachers  and 
administrators;  and  the  relatively 
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tight  budgets  of  educational  institu- 
tions. 

Nevertheless,  tremendous 
changes  have  occurred  in  teachers' 
attitudes  toward  microcomputers 
over  the  last  couple  of  years.  There 
are  several  reasons.  First,  software 
publishers  have  increasingly  at- 
tempted to  provide  the  kind  of  pro- 
grams that  teachers  feel  comfortable 
with — quantifiable,  curriculum- 
based  software.  At  the  same  time, 
innovative,  nontraditional  kinds  of 


learning  aids  have  gained  a  wider 
acceptance.  Second,  the  hardware 
and  software  shakeouts  that  have 
moved  the  computer  industry  to- 
ward maturity  and  greater  stability 
have  made  educators  feel  more 
confident  about  making  a  financial 
commitment  to  microcomputers. 
Finally,  teachers  are  generally  less 
anxious  about  computers  and  more 
experienced  at  applying  them,  with 
a  growing  number  of  classroom 
success  stories  fueling  increased 
computer  use.  It's  not  just  the  stu- 
dents and  a  few  computer-wise 
teachers  who  are  driving  the  move- 
ment anymore. 

Each  of  the  major  computer 
manufacturers  has  made  unique 
contributions  to  trigger  the  integra- 
tion of  computers  into  classrooms. 
Some  offer  educational  discounts. 
Others  provide  special  grants  and 
develop  efficient  ways  to  exploit 
the  hardware,  such  as  networking. 
In  addition  to  easing  the  financial 
burden,  hardware  manufacturers 
promote  the  general  health  of  the 
educational  computing  industry  by 
fostering  quality  software  develop- 
ment and  encouraging  nontradi- 
tional applications  of  hardware  to 
traditional  curricula.  Inservice 
training  of  teachers  and  special 
workshops  sponsored  by  hardware 
companies  have  also  been  signifi- 
cant in  creating  a  more  upbeat  atti- 
tude toward  classroom  computing 
in  recent  years. 

Here's  a  company-by-company 
look  at  the  variety  of  approaches, 

Apple  Computer 

Officials  at  Apple  Computer  real- 
ized early  on  that  a  good  software 
base  was  central  to  getting  their 
hardware  into  schools.  Apple  made 
major  efforts  in  the  early  1980s  to 
convince  software  developers  to 
support  its  machines,  offering  them 
shared  advertising,  discounts  on 
development  machines,  and  tech- 
nical support. 

Currentiy,  Apple  has  two  edu- 
cational discount  programs.  Step 
pricnig  gives  buyers  lower  prices  on 
larger  orders,  encouraging  educa- 
tors to  buy  in  quantity  whenever 
possible.  And  with  the  Volume  Pur- 
chase Agreement,  a  school  can  elect 
to  pay  for  its  computers  over  a 
three-year  time  period.  If  a  school 
involved  in  such  an  agreement 
finds  that  the  hardware  does  not 


meet  its  needs,  it  may  return  the 
equipment  without  making  the  re- 
maining payments. 

Support  after  the  sale  is  also  a 
key  to  Apple's  success  in  the  school 
market.  Apple  relies  heavily  on  its 
local  dealers  to  provide  on-site  sup- 
port to  educators.  Ten  days  before 
an  order  of  computers  is  scheduled 
to  reach  a  school,  Apple  notifies  a 
local  dealer  who  is  then  responsible 
for  installing  the  equipment  and 
providing  orientation  and  training 
for  teachers  and  administrators.  The 
dealer  is  also  responsible  for  any 
follow-up  repair  and  maintenance. 

Apple  has  developed  a  fairly 
high  profile  on  many  college  cam- 
puses across  the  country,  thanks  to 
the  Apple  University  Consortium 
(AUC).  A  couple  of  years  ago,  24 
U.S.  colleges  and  universities 
formed  an  organization  whose  pur- 
pose was  to  develop  tools  and  re- 
sources for  the  Macintosh.  Because 
of  that,  many  campuses  today  main- 
tain busy  Macintosh  labs  and  work- 
stations. At  least  one  institution, 
Drexel  University,  requires  its  fresh- 
men to  purchase  Macintoshes. 

Atari  G>rporation 

Atari  Corporation's  change  of  own- 
ership and  revamped  management 
have  resulted  in  few  formal  educa- 
tional programs  currently  in  opera- 
tion. Considering  Atari's  growing 
strength,  however,  that  may  soon 
change.  Low-cost  8-bit  Ataris  have 
already  been  the  first  kind  of  com- 
puter many  students  ever  encoun- 
tered in  a  class;  their  current 
availability  and  strong  software 
base  may  even  amplify  this  trend. 
And  the  low  price  of  the  powerful 
ST  computers,  as  well  as  their 
strong  graphics  and  music  capabili- 
ties, may  cause  some  educators  to 
look  twice,  especially  for  use  in  cre- 
ative applications. 

Atari  recently  announced  a 
marketing  agreement  vnth  Montreal- 
based  Arrakis,  publisher  of  the  Ad- 
vantage series  of  educational  soft- 
ware. ST  versions  of  these 
programs,  which  have  in  the  past 
been  available  for  Apple,  Commo- 
dore, and  IBM,  should  be  ready  by 
the  end  of  the  year.  The  Arrakis 
series  is  known  for  its  impressive 
graphics  and  cartoonlike  anima- 
tion, as  well  as  a  sophisticated 
parser  which  incorporates  princi- 
ples of  artificial  intelligence  and 


provides  direct  answers  to  students' 
questions. 

Computer  Curriculum  Corpo- 
ration (Palo  Alto,  CA)  has  an- 
nounced a  commitment  to  Atari 
equipment.  CCC  is  packaging  STs 
along  with  their  minicomputers 
and  a  series  of  courses;  that  is,  they 
bundle  hardware  and  software  and 
install  the  complete  systems  in 
schools. 

Finally,  a  10-percent  discount 
is  available  to  colleges  and  univer- 
sities, with  follow-up  service  and 
support  provided  by  local  dealers. 

Commodore 

Commodore's  big  draw  for  schools 

lies  in  its  inexpensive  hardware  and 
broad  base  of  third-party  educa- 
tional software.  Many  teachers,  un- 
able to  get  funds  allocated  for  major 
hardware  purchases,  started  out  by 
buying  a  few  Commodore  64s  (or 
even  bringing  their  own  in  from 
home).  In  many  settings,  this  was 
all  that  was  necessary  to  get  stu- 
dents familiar  with  the  fundamen- 
tals of  microcomputers,  while  also 
providing  workstations  for  word- 
processing,  database  management, 
and  computer-aided  learning.  In 
other  cases,  some  school  adminis- 
trators have  been  willing  to  make  a 
financial  commitment  to  micro- 
computers in  the  classroom,  based 
on  the  excitement  they've  seen  gen- 
erated by  a  few  hundred  dollars' 


worth  of  hardware  and  software. 

Every  major  educational  soft- 
ware publisher  supports  Commo- 
dore machines,  so  hundreds  of 
titles  have  been  developed  for  the 
Commodore  64  over  the  last  few 
years.  Though  some  are  more  ap- 
propriate for  the  less  structured  at- 
mosphere of  the  home,  many  have 
been  adopted  for  classroom  use.  A 
complete  list  of  the  more  than  1500 
packages  wiU  be  available  through 
distributors  this  fall. 

Commodore  has  recognized 
that  computer-aided  education 
does  not  necessarily  have  to  hap- 
pen in  a  schoolroom,  and  has  sup- 
ported some  unique  opportunities 
for  learning.  Two  of  these  involve 
telecommunications.  Quantum- 
Link,  a  year-old  service  that  Com- 
modore has  backed  with  technical 
and  marketing  assistance,  is  an  on- 
line forum  for  sharing  information 
of  all  kinds.  Though  much  of  the 
earliest  activity  that  went  on  there 
was  computer-oriented,  a  variety  of 
other  special  interests  are  now  sup- 
ported there.  Education  is  one  of 
them.  The  Resource  Center,  a  rela- 
tively new  forum  in  the  Learning 
Center  area  of  Q-Link,  is  composed 
of  three  sections.  The  Library  in- 
cludes curriculum  guides,  teaching 
strategies,  software  reviews,  and  ar- 
ticles about  home  and  comnnunity 
education.  In  the  Media  Room,  us- 
ers can  download  software  written 


Each  o{  the  major  computer  manufacturers  has 
made  unique  contributions  to  trigger  the 
integration  of  computers  into  classrooms. 


by  teachers.  The  Lounge  is  an  on- 
line conference  area,  a  meeting 
place  for  teachers  and  parents  to 
gather  and  discuss  educational  is- 
sues and  plans.  And  the  Resource 
Center's  Message  Boards  keep  ev- 
eryone posted  on  what's  happening 
in  educational  computing.  (Quan- 
tum Computer  Services,  8620 
Westwood  Center  Dr.,  Vienna,  VA 
22180.) 

Commodore  is  involved  with 
another  online  educational  venture: 
the  Electronic  University  Network, 
operated  by  TeleLearning  Systems, 
Inc.,  of  San  Francisco.  By  purchas- 
ing the  $195  enrollment  package, 
you  have  access  to  online  courses 
offered  by  25  colleges  and  universi- 
ties. You  may  either  take  selected 
courses  or,  if  you  have  met  the 
school's  prerequisites,  work  toward 
an  M.B,  A.  or  undergraduate  degree. 
Degrees  are  issued  by  the  schools 
involved,  not  by  the  Electronic  Uni- 
versity Network,  The  system  soft- 
ware also  gives  you  access  to  online 
databases — libraries  of  information 
for  research  purposes — "as  well  as 
counseling  and  online  seminars. 
(Software  allowing  IBM  and  Apple 
owners  to  use  the  network  is  also 
available.  For  more  information, 
write  to  TeleLearning  Systems,  Inc., 
505  Beach  St.,  San  Francisco,  CA 
94133,  or  call  (800)22LEARN;  in 
California,  call  (800)44LEARN.) 

Commodore  has,  in  the  past, 
participated  in  more  traditional  out- 
reach efforts  to  schools.  Recent  fi- 
nancial problems  at  the  company 
have  apparently  forced  cutbacks  in 
ongoing  educational  support.  That, 
too,  may  change  if  Commodore  is 
able  to  weather  remaining  financial 
hurdles.  The  company  has  a  strong 
history  of  major  support  to  Canadi- 
an schools,  and  continues  to  main- 
tain that  presence. 

IBM 

IBM  has  made  a  major  commitment 
to  the  basic  skills  of  reading  and 
writing  with  its  Writing  To  Read 
program  in  the  school  market.  De- 
veloped by  educator  Dr.  John  Hen- 
ry Martin,  Writing  To  Read  was 
tested  among  22,000  students  and 
was  evaluated  in  an  independent 
two-year  study  by  the  Educational 
Testing  Service  before  being  intro- 
duced in  the  fall  of  1984.  The  pro- 
gram has  grown  in  use  from  200 
schools  at  the  end  of  1984  to  1100 
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Atari  recently  announced  that  17 
titles  from  the  acclaimed  Arrakis 
series  will  be  available  for  the  ST. 

schools  at  the  end  of  1985,  More 
than  125,000  students  have  partici- 
pated in  the  program,  The 
computer-based  program  allows 
students  to  advance  at  their  own 
pace  and  offers  positive  reinforce- 
ment during  a  student's  interaction 
with  the  computer. 

Through  Writing  To  Read, 
children  learn  the  42  phonemes  (let- 
ter and  sound  combinations)  that 
make  up  the  English  language. 
Using  these  phonemes,  students 
are  able  to  read  and  write  every- 
thing they  can  say.  Typically,  stu- 
dents spend  an  assigned  hour  each 
day  in  a  Writing  To  Read  center  or 
lab,  a  specially  designed  room 
made  up  of  five  learning  stations. 
Work  sessions  in  the  lab  are  gener- 
ally an  hour  long.  Students  alter- 
nate around  the  five  stations:  at  the 
computer,  with  a  work  journal,  at  a 
listening   library   using   specially 


The  Tandy  1000  computer  is  be- 
coming an  increasingly  popular 
choice  for  educators. 


taped  lessons,  and  playing  two 
phoneme-based  games  at  the 
"make  word"  station. 

IBM  has  made  a  significant  com- 
mitment to  developing  curriculum- 
based  software  in  many  subject 
areas  for  elementary  and  secondary 
schools,  programs  that  come  bun- 
dled with  several  student  disks  and 
a  teacher's  guide  for  easy  use  in 
classrooms  with  multiple  computer 
workstations.  Many  of  the  pro- 
grams are  also  available  individual- 
ly. In  addition,  IBM  has  founded 
the  National  Disability  Resource 
Center,  a  national  technology  re- 
source that  supports  the  needs  of 
the  disabled. 

Tandy  Gjrporation/ 
Radio  Shack 

The  Tandy  Corporation  has  had  a 
longstanding  commitment  to  com- 
puter use  in  the  schools.  In  1979, 
Tandy  introduced  the  first  low-cost 
classroom  network  system — Net- 
work 1,  In  1980,  the  Radio  Shack 
Education  Division  was  formed  to 
produce  a  line  of  educational 
courseware.  In  the  years  since, 
Tandy  has  offered  free  computer 
literacy  training  to  teachers,  provid- 
ed formal  support  for  educational 
software  publishers,  donated  more 
than  $1  million  in  hardware  and 
software  products  to  support  re- 
search and  development  activities, 
and  sponsored  conferences  and  as- 
sociations to  promote  the  further 
integration  of  computers  into 
classrooms. 

Currently,  three  major  pro- 
grams are  in  place  in  addition  to 
these  areas  of  ongoing  support.  In 
conjunction  with  Education  Sys- 
tems Technology  Corporation 
(ESTC),  Tandy  offers  an  integrated 
learning  system  for  elementary 
schools,  consisting  of  three  major 
components:  a  comprehensive  1500- 
lesson  reading  and  mathematics 
curriculum  for  grades  K-6;  a  com- 
puter laboratory  composed  of  1 
Tandy  3000  host  computer  and  up 
to  40  Tandy  1000  personal  com- 
puter workstations,  allowing  an  en- 
tire class  to  use  the  system  at  once; 
and  an  on-site  facility  management 
service,  which  includes  an  ESTC 
lab  attendant  and  a  complete  com- 
puter-controlled student  manage- 
ment and  performance  reporting 
system. 
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Frankie  have  sent  you  over  60  tasks  in  your      This  combination  awards  you  the  minimum       on  the  Bar  Charts  (when  the  word  BANG  will 


journey  Irom  Mundanesvitle  through  the  requirement  (99%  a  complete  person)  to 

Pleasure  Dome.  Tasks  ranging  (rom  the  search  for  the  Special  Door  -  the  Door  lo 

trivial,  to  heroic  feats  of  skill  and  intelligence,  the  Ultimale  Experience  -  the  heart  of  the 
Whenever  you  complete  these  challengesa  ..^Pleas^'c  Dome, 
bar-chart  will  show  your  Increase  In  the  ^^Uj^S^^^  '*'  become  a  complete  person 
various  elements  of  your  personalitu  ani^Bl^nHmvethis  vou  mustreachthetoD 
Pleasure  points  will  be  awardi 
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light  up  above  the  personality  factors) 
and  achieve  a  score  of  87,000 
Pleasure  Points. 
'"Best  adventure  game  1985" 
Commodore  Computing 


FIREBIRD  LICENSEES  INC.  P.O.  BOX  49,  RAMSEY,  i\I.J.  07446     FACTSHEET/ORDER  HOTLIWE:  201.934.7373 

COMMODORE  G4/1Z8  ARE  TRADE  MARKS  OF  COMMODORE  BUSINESS  MACHINES. 


92ijCO  Computek  cMaftfeeting  &  ConsuftaiAte 


JK  ATARI  JK  I    appkZ     ICOMMOOORE 


ATARI 

1050 129 

SF314 219 

SF354 175 

130XE CALL 

65XE CALL 

S20st CALL 

S20sl  monochrome.. CALL 

520st  color CALL 

1027  printer 145 

l040st(NEW)  CALL 


BRODERBUND 

(Atari) 

Prinlshop 28.7S 

GraphicsLibl.il,  III. .18.75 

Paper  relill 12.95 

Karateka 19.75 

Prinlshop  comp 24.75 

SSI 
(Atari) 

NAM 24.75 

Mechbrigade 34,95 

Anlietam 29,95 

U.S,A,A.F ,,,.,,34, 95 

Col.  Conquest 24,75 

Ambush 34.95 


SUBLOGIC 

(Atari) 

Flighl  Simulator 29.95 

Night  Mission  Pinball..  18.95 
Scenery  Disks  EA 14.95 


SYNAPSE 

(Atari) 

Synffle 29.9S 

Syncalc 29.95 

Template....- 14.95 


ACCESS 

(Atari) 

Leader  board  24.75 


FIREBIRD 

(Atari) 

The  pawn 25.75 

Star  glider 26,75 


ACTIVISION 
(Atari) 

Hacker 15.75 

Mtndshadow .15.75 

Ghostbusters 15.75 

Great  Am  Race 15  75 

Music  Studio 22,75 

Space  Shuttle 15.75 


UNISON  WORLD 

(Atari) 

Printmaster 24.75 

Art  Gallery 18.75 

MICROLEAGUE  (Atari) 

Baseball 24.95 

GM  disk 24.95 

Team  disk 14.95 

ACTIVISION 

(520  St) 

Borrowed  Time 29.75 

Music  Studio 34.75 

Hacker ,,..,,26,75 

Little  People. ...29,75 

VIP 

(520  St) 

VIP  Professional 109 

VIP  Lite 65,95 

HABA 

(520  St) 

Writer 35.95 


DIGITAL  DEVICES 

Pocket  Modem  AT CaD 

Compiffene 18.95 

ZOOM 

PC  1200  ST 159 

PC  1200  XL 259 

PC  1200X,L/PFS 279 

US  ROBOTICS 

Password  1200M 189 

Courier  2400 395 


ACTIVISION  (Apple)       1 

Alter  Ego 

..28.75 

Little  People 

Mindshadow 

..24.75 

.24.75 

Hackler 

..24.75 

Gamemaker 

..24.75 

BRODERBUND  (Apple) 

Ttie  Print  Shop 

31  50 

Graphic  Librarys  EA. 
Banl<  St.  Writer  128K 

.18.50 

.42,75 

Bank  Si.  Speller 

.42.75 

Carmen  Sandiego.... 

.22.75 

Karateka 

..22.75 

Captain  Goodmglit... 

.22.75 

Uuppel  Cruise 

P.S^  Companion 

Science  Kil 

..25.75 

.24.75 

.35  95 

MICROPROSE  (Apple) 

Crusade  m  Europe 

..24.75 

Decision  in  Desert. 

.24.75 

F-15  Strike  Eagle... 

.20.75 

NATO  Commander 

.20,75 

Silent  Service 

.20.75 

Solo  Flight 

20  75 

SSI  (Apple) 

Phantasie  II 

.24.75 

Wizard  s  Crown 

24.75 

Flings  of  Zilfin 

,,24,75 

Colonial  Conquest.. 

..24.75 

Batllegroup 

.35.75 

NAM 

.29.75 

MICROLEAGUE  (Apple)       | 

M  L  Baseball 

.24.95 

General  Mgr 

..24.95 

COMMODORE 

128 CALL 

C  1571  Drive CALL 

C1902-A CALL 

0  1541  Drive    .  CALL 

C  1670  MoOem  CALL 

C  1350(Vlouse  .  .  39 
C  1700  128  K  RAM  ,  145 
C  1750  512  K  RAM       269 

JANE 35 

Perfect  Writer    45 

Perfect  Calc      45 

Perfect  Filer      45 


BATTERIES  INCLUDED 

Paper  clip 35,95 

Consullani 35  95 

Paper  clip 
w/  spelipak 48,95 

EPYX-64 

Movie  Monster 24,75 

Vorpol  Kit 22.75 

Fast  Load 24,75 

Summer  Games  II, ...24, 75 

Super  Cycle 24,75 

World  Games 24.75 

Football 24.75 


SUBLOGIC 

Nighimission  Pinball..,  18.95 

,  Flight  Simulator 29.95 

JefSimulalor 25.95 

Football 25.95 

Scenery  Disk  ,,,EA 14.95 

Set  1-6 69,95 


MODEMS 

SUPRA 

1064  Modem  (C-64}  49.95 

SUPRA 

1200(520  ST)        ,         149 

DSI 

Messenger  S-i/l 28.., 39.95 

ANCHOR 

Volksmodem                  .55 
Volksmodem  12            179 

COMPUSERVE..  18,95 

COMMODORE 

1670  Modem 155 

CARDCO 

CB/2  2-slot  Board 19.95 

S  More  Basic  Rom.  ,39.95 
Freeze  Frame 28.75 


ACTIVISION 

(C-64/128) 

Alter  Ego 28.75 

Hacker... 1875 

Little  People..... 20.75 

Game  Maker 24  75 

Borrowed  Time 18  75 

Space  Shuttle 18.75 

Music  Studio 22  75 

Mind  Shadow 18  75 

Road  Race 18  75 

Fast  Tracks 22  75 

Count  Down 18.75 

Basketball 18-75 


BRODERBUND 

The  Print  Shop  24.75 
Graphics  Library 

I.  II.  ill  1575 

Karateka  17.75 

Bank  St.  Writer     ,  29.75 

Lode  Runner 19.75 

Prinlshop  Corapahion  24.75 

Bank  St.  Speller     .  29  75 

Bank  St.  Filer      29,75 

Bank  St.  Mailer  29.75 
Championship 

Loderunner  19,75 


UNISON  WORLD 

Print  Masler  (Amiga) 22  75 

Print  Masler  (0-5*128).  22  75 
Art  gallery 16.75 


FIREBIRD 

Elite    ,  19,95 

Colossus  IV  21.95 

ACCESS 

(C-64-Amiga) 

Leader  Board 24.75 

Leader  Board  Amiga24  75 

Tournament  I 12  75 

MACH  128 28,75 

10th  Frame 24.75 


XETEC 

Font  Master  II  64    . 


28.95 


MONITORS 


PANASONIC 

TR-122MYP  12'  Amber  TTL  139 
TR-122  M9P  12'  Green  ni,  139 

TX-12H3P12"RGB 369 

DT-H103  10'RGB  349 


TEKNIKA 

MJ-10.- 149 

MJ-22 249 

MS-305RGB 309 

THOMPSON 

365  12  RGB CALL 


HITACHI 

MM-121B  12"  Green 99 

MM-122a  12"  TTL  Amber  .129 
CM-1406C  13"  color 

w/ cable 179 

CM-1409  13"  RGB 305 

CM-1216D12"RGB 385 

CM-1455S  13"  720x350., .,525 
CM-1457A13"RGB 

720x460 679 


ZENITH 

ZVM  1220 89 

ZVM  1230 89 

ZVM  1240 149 

NEC 

Multisync CALL 


PRINCETON  GRAPHICS 

MAX-12Amber.  175 

HX-12HGB      ,       .        458 
SR-12RGB 575 


NEW  HOURS! 

Mon-TtiurSflMSPM 

Fn  9Ar/l-6PM 

Sat  lOAM'GPM 


LYCO  COMPUTER 
MARKETING  &  CONSULTANTS,  INC, 


NEWHOUI=?S! 

Mon-Thur9AM-SPI^ 

Fri  9AM-6Prvl 

Sat  10AM'6PM 


S£l|co  Comf)ute/i  (jUa/ifcctLiag  &  Consufitants 


NEW  HOURS! 

Mon-ThurSAM-aPM 
Fri  9AM-6PM 
SatlOAM-ePM 


AMERICA'S  MAILORDER  HEADQUARTERS       newhoursi 


1080 $199 

PANASONIC 

1080 195 

1091 225 

1092 309 

3131 249 

3151 399 

1S92 419 

1595 599 

EPSON 

LX80.,.- ^.209 

FX85 CALL 

DX10 207 

HIBO 355 

HSeO .^Z9S 

FX2B6 CALL 

LQ800 529 

LQlOOO 659 


SAVE  ~  PRINTERS 


SEIKOSHA 

SP-1000  VClC-64) 175 

SP-1000  A  Centronics-   -195 

SP-1DD0I  IBM 195 

SP  1000  AS  RS-232 195 

SP-1000  AP  Apple  He.    195 

BP-5200L,- 649 

BP-1300 469 

aP-5420 999 

SP-1000  ribbon 8.50 

BP-5420  ribbon 12,50 

SILVER  REED 

EXP  420  P 209 

EXP  600  P 489 

EXP  800  P 649 

EXP  400 249 

EXP  770 -.749 


LEGEND 

1080 Call 

1380 258 

1385 289 

808 148 


OKIDATA 

Okimate  10 : 179 

182 214 

192 348 

193    - 563 

Okimate  20 199 

120 205 

292 CALL 

293 CALL 


C.  ITCH 

1550  SP+  Call 

D1040  Call 

Prowriierjr.  Call 

Prowriter8510SP+  Call 


TOSHIBA 

P351-I- 1149 

P341P ...969 

P341S 999 

351  sheel  feeder 529 

321  P/S 495 


JUKI 

Juki  6100-     - 339 

RS  232  Serial  Board.  ...55 

5510 349 

Color  Kit 105 

6100  Tractor 119 

6100  Sheet  Feeder 209 

Juki  6300 757 


CITIZEN 

Premier  35 469 

MSP-10 - 285 

MSP-15 385 

MSP-20 325 

MSP-25 485 

120-D, 179 


DIABLO 

D25 549 

D801F 2395 

P  32CQ1 699 

P-38 1749 

635 1029 


Mon-Thur9AM-8PM 

Fri  9AM-ePM 

Sat  lOAM-ePM 


'^•:=S^ 


COLOR  RIBBONS  NOW  AVAILABLE!! 


NX-10 CALL 

STAR  MICRONICS 

NX-10  (NEW) CALL 

NB-15   NEW) CALL 

SB-15(NEWj.- CALL 

NL-10  NEW) CALL 

SG-15 367 

SD-10 319 

30-15 438 

SR-10 469 

SR-15 578 

SB-IQ 539 

Powertype 297 


BROTHER 

HB-15XL-P 359 

HR-15XL-S 359 


DUST  COVERS 

Atari 

520ST        11.95 

130XE - 6.99 

BOOXL      S99 

1050        

...  6.99 
799 

1026      

Commodore 

C128 

1571/1541 

1902    

-7-99 
.S99 
10  95 
899 

1?02 

C64/Vic2D 

Panasonic 

1090/1091  - 

1092          

-  6,99 

...899 

8,99 

.9  99 

1093          

DRIVES 

INDUS 

GT  Alan 179 


INDUS 

GT  Commodore 179 

ATARI 

1050  129 

COMTEL 

Enhancer  2000  (C-64).149 


INTERFACING 
CARDCO 

G-WIZfC-64) 47 

Super  G(C-B4) 54 

C/?PS(C-64) 37 


ORANGE  MICRO 

Grappler  +  (Apple)  85 

Grappler  i6K  (Apple),.  149 

Orange  (Apple) 59 

Grappler  C  (He) 85 

MICROBITS 

MPP-1150  (Alari) 45 

MPP-1150  XL  (Alan)      .49 
Micropfinl  (Atari) 35 

ATARI 

850.,- 109 


DIGITAL  DEVICES 

U-Pnnt  A  16 45 

Apetace 39 


XETEC 

Super  Graphix  64 
Super  Graphix  JR  64 


61 
4b 


DISKETTES 


5Vi"  DISKETTES 

MAXELL 

SSDD 4.99 

DSDD 12,99 

VERBATIM 

SSOr:   --,- 9.50 

D3DD 12.99 

BONUS 

SSDD 6.99 

DSDD 7.50 

SUNKYOUNG 

SKCSSDD 11.99 

SKC  DSDD 13.99 


3.5"  DISKETTES 

3M 

SSDD .1699 

DSDD 25,9S 

MAXELL 

SSDD 16.99 

DSDD...-- 23,99 

VERBATIM 

SSDD 16  99 

DSDD 24.99 


DISK  NOTCHERS .  .  57.95.'.' 


IBM-PC 


BRODERBUND ( 

Bank  St.  Wnler 48.9S 

Print  Shop 34.95 

Graphics  Lib.  1 22.95 

Graphics  Lib.  2 22.95 

Ancienl  Arl  of  War 22.95 

Champ  Lode  Runner  .22.95 
Karaleka  22  95 


ACTIVISION  (IBM) 

Borrowed  Time 24.75 

Mindshadows 24  75 

Music  Studio 29.95 

Alter  Ego 29.95 

Alter  Ego  (Male) 29.95 

Pebble^each 29  95 


SUBLOGIC  (IBM) 

Jet  Simulator 34.95 

Scenery  Disks  EA....14.9S 

Sel  1-6 69.95 

S.D.  Japan 14.95 

S  D.  San  Francisco.  14.95 


SYNAPSE  (IBM) 

Synslock  64  9S 

Esses  2B95 

Wi;ard  of  Wall  St  28.95 

Brimstone  28  95 


QUADRAM 

Gofd  quadboard 399 

Silver  quadboard 229 

Quadboard 199 


TOLL  FREE  1-800-233-8760 


In  PA  717-4.94-1030 
Customer  Service  717-494-1670 


t£ 


or  send  order  to 

Lyco  Computer 

P.O.  Box  5088 

Jersey  Shore,  PA 

17740 


RISK  FREE  POLICY 

In  slock  ilems  Stitppefl  wiltlin  24  liours  o1  order  No  deposit  on  C.O  D  orders  Free 
stiippmg  on  prepaid  cash  orders  wiihin  the  coniinemai  U.S  Volume  discojnis  availa- 
die  PA  residenis  add  sales  lax  APO  FPO  and  in  lernalionai  orders  add  S5  00  plus 
3%  lor  priority  mail  service  Adverlised  prices  show  4%  discouni  for  cash,  add  4% 
lor  MasterCard  and  Visa  Personal  checks  require  4  weeks  cJearance  belore  shipping 
We  do  no!  guarantee  compalibilily  We  only  ship  laclory  fresh  merchandise  Ask  about 
UPS  Blue  and  Red  label  shipping  All  merchandise  earned  under  manufaclurer's 
warranty  Relurn  restriction  applicable  fleturn  authorization  required  Atl  items  subiecl 
fi  chanoe  without  notice 


Tandy  offers  sperial  pricing  on 
educational  network  systems.  Edu- 
cational customers  purchasing  two 
Model  4  computer/Network  4  Stu- 
dent Stations  at  the  regular  price  of 
$1,099  each  will  receive  a  third  sta- 
tion free.  Other  network  configura- 
tions are  available  at  substantial 
discount.  Network  4  is  Tandy's 
newest  and  most  powerful  class- 
room network.  Students  at  individ- 
ual stations  can  sign  on  to  teacher- 
created  network  accounts  to  share 
software  stored  on  the  hard  disk 
drives  at  a  central  disk  server.  The 
system  supports  multiple  disk  and 
printer  servers,  which  saves  money 
by  eliminating  the  need  for  peri- 
pherals at  each  workstation.  (This 
promotion  is  good  through  Sep- 
tember 30, 1986;  interested  custom- 
ers may  contact  a  Regional 
Education  Coordinator  by  calling 
800/433-5628.) 

Finally,  topics  for  the  third  and 
fourth  quarter  Grants  Program 
have  been  announced.  All  nonprof- 
it educational  institutions  and  pro- 
fessional educators  are  eligible  to 
submit  proposals  for  these  project 
grants.  Proposals  for  "Creative 
Uses  of  Microcomputers  in  Educa- 
tion" should  be  submitted  by  Sep- 
tember 30,  1986,  and  proposals  for 
"Using  Computers  for  Instructional 
Management"  should  be  submitted 
by  December  31,  1986.  (Infor- 
mation packets  required  for  use  in 
order  to  submit  proposals  can  be 
obtained  by  writing  to  Tandy  Edu- 
cational Grants  Program,  1400  One 
Tandy  Center,  Fort  Worth,  TX 
76102.) 

For  further  information  on  any  of 
the  products  or  programs  men- 
tioned here,  please  contact: 

Apple  Computer 
20525  Mariani  Ave. 
Cupertino,  CA  95014 

Atari  Corporation 
1196  Borregas  Ave. 
P.O.  Box  3427 
Sunnyvale,  CA  94088 

Commodore  Business  Machines 

1200  Wilson  Dr. 

West  Chester,  PA  19380 

IBM  Educational  Systems 
P.O.  Box  2150 
Atlanta,  GA  30055 

Tandy  Corporation /Radio  Shack 
1800  One  Tandy  Center 
Fort  Worth,  TX  76102 
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THE  REFERENCE 

Library 

OF  THE  FUTURE 


Kathy  Yakal,  Assistant  Features  Editor 


Traditional  classroom  education  has  already  undergone  some 
major  changes  with  the  continuing  integration  of  microcomput- 
ers into  schools.  But  there's  a  relatively  new  technological 
development  with  far-reaching  educational  implications — CD- 
ROM  (Compact  Disc-Read  Only  Memory).  By  connecting  a 
personal  computer  to  a  compact  disc  containing  digital  infor- 
mation, you  can  easily  store  and  cross-reference  an  entire 
encyclopedia,  with  plenty  of  room  to  spare.  Similar  to  the  laser- 
driven  audio  compact  discs  that  now  hold  an  hour  or  so  of 
recorded  music,  these  new  computer  peripherals  will  surely  alter 
many  of  our  current  approaches  to  education.  Here's  a  look  at 
what  this  might  mean  for  the  classroom  of  the  future. 


Your  grandchild's  sixth-grade  history  homework  assignment:  Turn  in  a 
report  on  the  first  manned  space  flight  to  the  moon.  Though  the  topic 
may  sound  typical,  the  research  won't  involve  trudging  to  the  school 
library  or  home  encyclopedia  to  haul  down  15  different  books  and  stare 
at  reams  of  text  and  a  static  photo  of  the  moon. 
Instead,  with  a  few  keystrokes: 

•  A  laser- driven  compact  disc  feeds  through  a  computer  system  the 
digitized  voice  of  Neil  Armstrong  as  he  steps  down  onto  the  moon's 
surface — That's  one  small  step  for  .... 

•  A  full-color  animated  sequence  shows  the  touchdown  of  the  lunar 
lander  and  the  planting  of  the  American  flag.  Another  sequence 
displays  the  liftoff,  orbital  rotation,  and  space  flight  while  the  process  is 
explained  through  speech  synthesis  and  onscreen  text. 

•  A  few  more  keystrokes  and  the  voice  of  President  John  F.  Kennedy  can 
be  heard  as,  earlier  in  the  decade,  he  set  a  national  goal  to  reach  the 
moon. 

•  A  series  of  articles — all  with  voice,  color  animation,  and  printout 
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BASIC 
Compiler 


Give  your  BASIC  programs  the  speed 
and  performance  they  deserve 


The  complete  compiler 
and  development  pack- 
age. Speed  up  your  pro- 
grams 5x  to  35x.  Many 
options:  flexible  memory 
management;  choice  of 
compiling  to  machine 
code,  compact  p-code  or 
both.  '128  version:  40  or 
80  column  monitor  output 
and  FAST-mode  opera- 
tion. '128  Compiler's  ex- 
tensive 80-page  pro- 
grammer's guide  covers 
compiler  directives  and 
options,     two    levels    of 


optimization,  memory  usage,  I/O  handling,  80  column  hi-res  graphics,  faster, 
higher  precision  math  functions,  speed  and  space  saving  tips,  more.  A  great 
package  that  no  software  library  should  be  without.  128  Compiler    $59,95 

64  Compiler     $39.95 


super  Compiler 

^  On  your 
The  language  of  the  SO's  and  beyond 


Fast  loading  (8  sec.  1571,  18  sec.  154 
two  additional  libraries— math  functions 
commands  (line,  fill,  dot,  etc.). 


For    school    or    software 
development.    Learn    C   on 
your  Commodore  witti  our  in- 
deptti  tutorial.  Compile  C  pro- 
grams  into  fast    machine 
language.  C-128  version  has 
added  features:  Unix™ -like 
operating  system;  60K  RAM 
disk   lor    fast    editing    and 
compiling  Linker    combines 
up  lo  10  modules;  Combine 
N^/L  and  C  using  CALL;  51 K 
available    for     object     code; 
1);  Two  standard  I/O  librarys  plus 
(sin,  cos,  sqrt,  etc.)  &  20+  graphic 
C-12e     S59.9S 
C-64       $59.95 


Easily  create  professional 
high  quality  charts  and 
graphs  without  programming. 
You  can  immediately  change 
the  scaling,  labeling,  axis, 
bar  lining,  etc.  to  suit  your 
needs.  Accepts  data  from 
CalcResult  and  MultiPlan. 
G-128  version  has  3X  the 
resolution  o(  the  '64  version. 
Outputs  to  most  printers. 

C-128       $39.95 
C-64         $39.95 


PowerPlan 

One  of  the  most  powerful  spreadsheets  with  integrated 
graphics.  Includes  menu  or  keyword  selections,  online  help 
screens,  field  protection,  windowing,  trig  functions  and  more. 
PowerGraph,  the  graphics  package,  is  included  to  create 
integrated  graphs  and  charts.  C-64  $39.95 


Technical  Analysis  System  for  the  C-64 
Ada  Compiler  for  the  C-64 
VideoBasic  Language  for  the  C-64 


$59.95 
$39.95 
$39.95 


Remarkably  easy-to-use 
interactive  drawing  pack- 
age for  accurate  graphic 
designs  New  dimension- 
ing features  to  create 
exact  scaled  output  to  all 
major  dot-matrix  printers. 
Enhanced  version  allows 
you  to  input  via  keyboard 
or  high  quality  Itghtpen. 
Two  graphic  screens  for 
copying  from  one  to  the 
other.  DRAW,  LINE,  BOX, 
CIRCLE,  ARC,  ELLIPSE 
available.  FILL  objects 
with  preselected  PAT- 
TERNS; add  TEXT;  SAVE  and  RECALL  designs  to/from  disk.  Define  your  own 
library  of  symbols/objects  with  the  easy-to-use  OBJECT  MANAGEMENT 
SYSTEM-store  up  to  104  separate  objects.  CI  28  $59.95 

C-64    $39.95 

Not  just  a  compiler,  but  a 
complete  system  for  develop- 
ing applications  in  Pascal 
with  graphics  and  sound 
features.  Extensive  editor 
with  search,  replace,  aulo, 
renumber,  elc.  Standard  J  & 
W  compiler  that  generates 
fast  machine  code.  If  you 
want  to  learn  Pascal  or  to 
develop  software  using  the 
best  tools  available-SUPER 
Pascal  is  your  first  choice. 
C-64       $59.95 


OTHER  TITLES  AVAILABLE: 

COBOL  Compiler 

Now  you  can  learn  COBOL,  tha^apst  widely  used  commercial 
programing  language,  andJg^f^COflipL  on  your  64.  COBOL 
easy  to  learn  because  nl^^a^^Cterread.  COBOL  Compiler 

Editor,  Compiler,  Interpreter 
C-64  $39.95 


BiKjaatj 
package  comes  completaC^tRrTl 
and  Symbolic  Debugger. 


Personal  Portfolio  Manager 
Complete  portfolio  management  system  for  the  Individual  or 
professional  investor.  Easily  manage  your  portfolios,  obtain 
up-to-the-minute  quotes  and  news,  and  perform  selected 
analysis.  Enter  quotes  manually  or  automatically  through 
Warner  Computer  Systems.  C-64  $39.95 

Xper 

XPER  is  the  first  "expert  systerrC  lor  the  C-1 28  and  C-64.  While 
ordinary  data  base  systems  are  good  for  reproducing  facts, 
XPER  can  derive  knowledge  from  a  mountain  of  facts  and  help 
you  make  expert  decisions.  Large  capacity.  Complete  with 
editing  and  reporting.  C-64  $59.95 

C- 1 2S  Bfiti  C-64  are  tradoniiifks  d  CanmodorB  BusJn«ift  Madihos  Inc. 
UntK  is  a  frodemork  of  B«l  Liiborabi« 


Abacusli^Software 


P.O.  Box  7219  Dept.C9  Grand  Rapids,  Ml  49510  ■  Telex  709-101  ■  Phone  (616)  241-5510 

Call  now  for  the  name  of  your  nearest  dealer.  Or  to  order  directly  by  credit  card,  MC,  AMEX  of  VISA  call  (616) 
241-5510.  Other  software  and  books  are  available-Call  and  ask  for  your  free  catalog.  Add  $4.00  for  shipping 
per  order.  Foreign  orders  add  $12.00  per  item.  Dealer  inquires  weIcome-1400-H  nationwide. 


capabilities — reveal  the  early  at- 
tempts at  space  flight,  including  a 
revolving  three-dimensional  over- 
view of  Sputnik;  the  voice  of  rock- 
et expert  Werner  Von  Braun;  a 
cross-section  of  a  typical  rocket 
system,  revealing  how  the  physi- 
cal configurations  have  changed 
over  time;  and  a  brief  explanation 
of  early  V-1  and  V-2  rockets  dur- 
ing World  War  II. 

Dozens  of  additional  topics  of- 
fer themselves  almost  magically  to 
the  young  researcher — from  Andy 
Williams  singing  Moon  River  to  an 
animated  demonstration  of  the 
moon's  effects  on  the  Earth's  tides. 

Although  such  examples  may 
sound  farfetched  today,  the  devel- 
opment of  this  technology  is  al- 
ready under  way.  The  interactive 
nature  of  research  in  tomorrow's 
schools  will  be  a  far  cry  from  the 
traditional  approach. 

For  schoolchildren  today,  find- 
ing information  is,  in  many  ways, 
similar  to  the  process  that  was  fol- 
lowed by  their  parents  and  grand- 
parents. The  millions  of  available 
books  can  be  a  fascinating  but  often 
frightening  and  frustrating  world 
for  young  students.  And  cross- 
referencing  information  from  one 
source  to  another  is  even  more 
daunting.  The  search  process  itself 
can  sometimes  be  discouraging 
enough  to  thwart  many  students' 
early  efforts  at  learning. 

In  the  next  few  years,  however, 
laser  technology  in  the  form  of 
compact  disc  players  interfaced 
with  personal  computers  are  ex- 
pected to  have  a  major  impact  on 
how  students  research.  Called  CD- 
ROM,  this  configuration  of  digital 
technology  embodies  three  ele- 
ments that  offer  tremendous  power 
for  educational  research.  First, 
speed:  Using  a  CD-ROM  system,  a 
student  can  find  the  most  trivial  fact 
contained  in  a  multivolume  refer- 
ence work  in  the  time  it  would  take 
to  remove  a  book  from  the  shelf 
and  flip  it  open  to  the  index.  Sec- 
ond, durability:  Because  the  search 
functions  of  CD-ROM  are  driven  by 
a  laser  beam  reading  a  disc,  the 
hardware  and  software,  given  rea- 
sonable care,  could  last  hundreds  of 


years.  And  third,  tremendous  stor- 
age capability:  A  compact  disc  can 
hold  over  550  megabytes  of  data. 
That's  roughly  a  quarter  of  a  million 
pages  of  text  on  a  disc  smaller  than 
a  45  rpm  record. 

A  Long  Time  Coming 

The  power  of  lasers  was  harnessed 
over  twenty  years  ago  and  has  po- 
tential applications  in  many  indus- 
tries. Engineers  at  many  consumer 
electronics  companies  worldwide 
have  been  experimenting  with  con- 
sumer and  business  applications  for 
almost  as  long  as  the  technology 
has  been  available.  We  saw  some  of 
the  first  results  of  this  experimenta- 
tion in  1980,  when  Sony  and  N.V. 
Philips  of  the  Netherlands  an- 
nounced specifications  for  a  new 
kind  of  home  stereo  system:  com- 
pact disc-audio.  Compact  disc  play- 
ers use  laser  beams  to  read  music 
digitally  encoded  in  microscopic 
pits  on  the  disc.  Since  nothing  actu- 
ally touches  the  disc  itself  in  the 
playing  process,  there  is  no  wear  on 
the  disc.  And  the  recording  is  free  of 
the  hisses  and  pops  and  other  dis- 
tortions we've  grown  accustomed 
to  hearing  on  albums.  CD  players 
began  appearing  on  the  market  in 
1983  and,  thanks  to  market  accep- 
tance, are  now  a  very  reasonably 
priced  alternative  to  traditional 
stereo  systems. 

In  that  same  year,  Sony  and 
Philips  announced  specifications 
for  another  way  to  use  CD  technol- 
ogy: Compact  Disc-Read  Only 
Memory  (CD-ROM).  Slightly  mod- 
ified CD  players  interfaced  with 
personal  computers  are  capable  of 
holding  the  data  that  would  require 
hundreds  of  the  floppy  disks  that 
we've  grown  accustomed  to  using 
for  data  storage.  And  v«th  the  right 
search  software,  access  to  that  data 
is  almost  instantaneous. 

Reference  material  is  an  obvi- 
ous first  application  for  CD-ROM, 
Consequently,  the  first  hardware/ 
software  configuration  actually 
available  for  the  consumer  market 
was  a  joint  venture  between  Phil- 
ips, which  provided  the  player,  and 
Grolier  Electronic  Publishing, 
which  offered  its  online  Academic 
American  Encyclopedia  on  a  com- 
pact disc.  The  package,  sold  in  lim- 
ited outlets  across  the  country, 
retails  for  $1,495. 


Amazing  Searches 

Many  now  claim  that  the  CD-ROM 
is  superior  to  any  previous  refer- 
ence tool.  To  see  why,  let's  take  a 
brief  walk  through  a  search  using 
the  Philips/Grolier  package. 

Installation  of  the  system  in- 
volves plugging  a  board  into  the 
IBM-PC,  connecting  the  CD  player 
cable  to  the  PC,  and  turning  every- 
thing on.  Once  you've  loaded  the 
search  software  {Knowledge  Retriev- 
al System,  by  Knowledge  Set)  from 
a  floppy  disk,  put  the  CD  into  the 
drive  and  turned  it  on,  you're  ready 
to  go. 


Here  is  the  opening  screen  of  the 
CD-ROM  search  software  developed 
by  Knowledge  Set  (formerly 
Activenture). 

The  opening  screen  offers  you 
the  options  of  finding  out  more 
about  the  system  itself,  moving  di- 
rectly into  a  search,  or  entering  the 
system.  All  commands  are  issued 
by  simply  pressing  the  desired 
function  key. 


Step  1:  Set  your  search  and  relation 
parameters  and  enter  the  words  or 
phrases  you  want  to  explore. 

The  first  working  screen  of  the 
system  presents  two  sets  of  options. 
Search  options  let  you  look  for  de- 
sired words  or  phrases  within  arti- 
cle titles,  bibliographies,  fact  boxes, 
article  text  itseH — or  anywhere  in 
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Detaifed  guide  presenls  ihg  I26"s 
operating  system,  explains  graphic 
chips,  Wemory  ManagemGnt  Unit,  BO 
column  graphics  and  commenced 
ROM  listings.  SOOpp  $19  96 


BASIC  7.0  iNTERNALS 
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Abacu^ 


Software 


Get  all  the  Inside  inlormaiion  on 
BASIC  7.0.  Thts  exhausliva  hand- 
book IS  compfete  with  eommQntad 
BASIC  7.0  ROM  listings.  Coming 
SurnTer'S6-  S19  95 


Fi!led  with  info  lor  everyone.  Covers 
60  column  hi-:es  graphics,  win- 
dowing, nnemory  layout,  Kernal 
fojlines,  sprites,  soltware  pro- 
teclion.  autosiarting.    300pp  S19-95 


Insiders'  guide  for  novice  £  ad- 
vanced user5.  Covers  sequential  & 
j-elativG  files,  &  direct  access  com- 
mands. Describes  DOS  routines, 
Commented  listings,  S19.95 


Learn  fundamentals  of  CAD  while 
developing  your  own  system.  Design 
objects  on  your  screen  to  dump  to  a 
printer.  Includes  listings  for  '64  with 
Simon's  Basic,  300pp  S19.9S 


Introduction  to  programing;  problem 
analysis;  thorough  description  ot  all 
BASIC  commands  with  hundreds  of 
examples;  monitor  commands;  uiil- 
Ities;  much  moro.  $16.95 


Presents  dozens  of  programming 
quick-rtiners.  Easy  end  useful 
lectiniques  on  the  operaiir^g  system, 
stacks,  zero-page,  po inters,  the 
BASIC  interpreter  and  more.   $16.95 


Essential  guide  lor  everyone  inter- 
ested jn  CP/M  on  the  128.  Simple 
explanation  o1  the  operating  system, 
memory  usage,  CPiM  utility  pro- 
grams, submit  files  &  more,      SI  9.95 


ANATOMY  OF  C-64  Insioefs  guide  to  the 
'64  internals.  Graphics,  sound,  1/0,  kernal, 
memory  maps,  mora.  Complete  commented 
ROM  listings.  MQpp  $19-95 

^DRIVE    Best 

■"i  all.  Many 
ty  commented 
SOQpp    S19.95 

e-64  Learn 
6510  code  write  Inst  programs.  Many  sam- 
ples and  listings  for  complete  assembler, 
monitor,  &  simulator.  200pp    SU.95 

GRAPHICS  BOOK  C-64  -  best  reference 
covers  basic  and  advanced  graphics. 
Sprites,  animation^  Hires,  Multicolor, 
lightpan,  3D-g:aphlcs,  IRQ.  CAD,  pro- 
jecikins,  cufves.  more.  350pp    SI  9-95 


ANATOMY     OF     154 

handbook  on  lloppySAjt] 
examples  and  titirUi*a^\l 
t541  ROM  listEnofc>^ 

MACHINE     LANGUAGE 


TRICKS  &  TIPS  FOR  C-64  Collection  of 
easy-to-use  techniques:  advanced  Qraphics. 
Improved  data  input,  enhanced  BASIC, 
CP/M.more.  275pp    $19.95 

154t  REPAIR  &  MAINTENANCE 
Handbook  describes  the  disk  drive  hard- 
ware. Includes  schematics  and  techniques 
to  keep  1541  running.  200pp    $19.95 

ADVANCED  MACHINE  LANGUAGE 
Not  covered  elsewhere!  -  video  conlrollar, 
interrupts,  timers,  clocks,  fO.  real  time, 
extended  BASIC,  more.  2l0pp    S14.9S 

PRINTER  BOOK  C-64/VIC-20  Under- 
stand Commodore,  Epson-compattole  print- 
el's  and  1520  plotter.  Packed:  utilities;  gra- 
phics dump:  3D-plot;  commented  MPSBDl 
RDM  Istings.  more.  330pp  $19.95 


SCIENCE/ENGINEERING  ON  C.64  In 
depth  intro  to  computers  In  scier^ce.  Topics: 
chemistry,  physics,  biology,  astronomy, 
electronks,  others.  35Qpp  £19.95 

CASSETTE  BOOK  C'64/VIC-20 
Comprehensive  guide;  many  sample 
programs.  High  speed  operating  system 
last  lile  loading  and  saving.  225pp  $14.95 
IDEAS  FOR  USE  OH  C-64  Themes: 
auto  expenses,  calculalor,  recipe  file,  stock 
lists,  diet  planner,  window  advertising, 
others.  Includes  Itslings.  20Qpp  512.95 
COMPILER  BOOK  C-64^C'128  All  you 
need  to  know  about  cjompilets:  how  they 
work;  designing  and  writing  youi  own; 
generating  machine  code.  With  wofking 
example  compiler.  300pp  S19.95 


Adventure  Gamewrlter's  Handbook 
Step-by-step  guJde  to  designing  and  writing 
youf  own  adventure  games.  With  automated 
adventure  game  generator.  200pp    $14.95 

PEEKS  &   POKES   FOR  THE  C-64 
Includes  in-depth  explanations  of  PEEK, 
POKE.  USR.  and  other  BASIC  commands. 
Learn  the  "inside"  trie**  to  get  the  most  out 
o1your'B4.  200pp  S14.95 

Optional  Dlshettea  for  bcok^ 
For  your  convenience,  the  programs 
contained  In  each  of  our  books  are  avail- 
able on  diskette  to  save  you  time  entering 
them  from  your  Keyboard.  Specify  name  of 
book  when  ordering.  $14.95  MCh 
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Software 


P.O.  Box  7219  Dept.C9  Grand  Rapids,  Ml  49510  ■  Telex  709-101  ■  Phone  (616)  241-5510 

Optional  diskettes  available  for  all  book  titles  -  $14.95  each.  Other  books  &  software  also  available.  Call  for  the  name  of  your 
nearest  dealer.  Or  order  directly  from  ABACUS  using  your  MC,  Visa  or  Amex  card.  Add  $4.00  per  order  for  shipping.  Foreign 
orders  add  $10.00  per  book.  Call  now  or  write  for  your  free  catalog.  Dealer  inquires  welcome-over  1 400  dealers  nationwide. 


the  encyclopedia.  If  you're  cross- 
referencing  two  words  or  phrases  to 
see  if  they  have  any  relationship  to 
each  other,  you  can  choose  from 
several  Relation  options.  For  in- 
stance, you  can  find  out  if  your 
selected  words  or  phrases  appear  in 
the  same  article,  the  same  para- 
graph, within  a  certain  number  of 
words  of  each  other,  or  in  the  exact 
order.  The  fifth  option  here,  which 
can  save  you  some  time,  lets  you 
negate  a  word  that  might  appear 
within  the  phrase  you're  looking 
for,  but  which  is  actually  another 
subject  entirely.  If  you  are  doing  a 
report  on  Martin  Luther,  negating 
the  word  King  will  prevent  you 
from  pulling  articles  you  don't  need 
to  read. 


Step  2:  After  getting  a  list  of  entries, 
decide  which  you'd  like  to  look  at. 

Let's  say  you're  doing  a  re- 
search project  on  Indo-European 
culture.  Upon  entering  that  phrase, 
you'll  find  that  there  are  162  occur- 
rences of  that  phrase  in  65  articles 
After  asking  to  see  a  list  of  the 
articles,  you  can  choose  to  read  and 
even  print  out  any  of  them.  Moving 
around  from  article  to  article  and  in 
and  out  of  searches  is  made  quite 
simple  by  the  function  key  menu 
that  remains  along  the  left  side  of 
the  screen  (and  changes  depending 
on  what  area  of  the  software  you're 
using). 

To  save  you  some  time,  if  you 
don't  want  to  skim  through  entire 
articles,  every  time  your  selected 
search  word  or  phrase  appears  in 
an  article  or  bibliography,  it  shows 
up  as  highlighted  print. 

The  system's  real  power  is 
quite  evident  the  first  time  you  sit 
down  to  conduct  a  search.  The  in- 
credibly fast  search  capabilities 
were  made  possible  by  the  software 
developers  at  Knowledge  Set  (for- 
merly  Acti venture).    In    order    to 
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The  top  screen  shows  (in  highlighted 
text)  where  your  selected  phrase 
appears  within  a  bibliography;  the 
bottom  screen  shows  it  within  an 
actual  article  about  the  topic.  From 
here,  you  can  print  out  a  copy,  con- 
tinue your  search,  or  begin  a  new 
search. 

make  referencing  accurate  and 
thorough,  every  unique  word  in  the 
Academic  American  Encyclopedia  was 
identified.  Then  the  VAX  minicom- 
puter which  compiled  the  list  creat- 
ed an  index  that  cross-referenced 
every  entry.  This  accounts  for  the 
system's  speed,  as  well  as  its  ability 
to  make  connections  between 
seemingly  unrelated  items  that 
might  never  occur  to  the  user,  but 
which  might  make  for  some  very 
interesting  research, 

Graphics  And  Sound,  Too 

Libraries  and  other  institutions  that 
have  major  information  storage  and 
retrieval  needs  have,  understand- 
ably, shown  a  great  deal  of  interest 
in  CD-ROM.  But  there  are  still  a 
few  things  that  need  to  be  worked 
out  before  CD-ROM  becomes  as 
commonplace  as  microfiche.  First, 
compatibility:  Ideally,  CD-ROM 
should  be  a  market  similar  to  that  of 
CD-audio;  that  is,  any  CD  you  buy 
will  run  on  any  manufacturer's  CD- 
ROM  player.  Negotiations  over 
standards  are  currently  under  way. 
Second,  where  will  the  soft- 
ware come  from?  Many  software 
publishers  are  very  interested  in  de- 


veloping for  CD-ROM,  though  few 
have  publicly  committed  to  it.  Part 
of  the  problem  here  stems  from  the 
old  chicken-and-egg  problem.  Busi- 
nesses are  hesitant  to  buy  a  system 
unless  there  is  a  lot  of  software 
available,  but  software  publishers 
are  hesitant  to  put  a  lot  of  develop- 
ment money  into  a  product  unless 
there  is  a  solid  installed  base  of  the 
hardware. 

Sony  and  Philips  recently  an- 
nounced specifications  for  a  spe- 
cialized kind  of  CD-ROM  perhaps 
better  suited  to  the  home  market. 
CD-I  (Compact  Disc-Interactive)  sug- 
gests an  environment  that  will 
allow  the  mixing  of  text,  graphics, 
sound,  and  limited  animation.  It's 
described  as  a  system,  as  opposed 
to  CD-ROM,  which  is  considered  a 
peripheral.  CD-I  hardware  may  be 
available  in  several  different  con- 
figurations from  several  different 
companies,  but  the  general  idea  is 
to  get  away  from  the  need  for  any 
extensive  technical  knowledge  to 
operate  it.  Several  companies  in  the 
entertainment  field  have  an- 
nounced intentions  to  develop 
home  entertainment  products  for 
the  system. 
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Microsoft  recently  showed  a  proto- 
type of  the  Multimedia  Encyclope- 
dia, a  CD-I  product. 

Of  course,  better  research  tools 
won't  necessarily  mean  better, 
smarter  students.  Motivation  and 
the  desire  to  learn  are  always  key 
factors.  But  this  new  generation  of 
electronic  equipment  will  do  much 
more  than  simply  make  it  easier  to 
find  facts.  Just  as  the  computer  age 
has  so  far  sparked  previously 
undreamed-of  applications,  so  also 
may  CD-ROM  and  CD-I  technol- 
ogy lead  to  uses  that  we,  at  this 
early  stage,  can  hardly -imagine.  © 


BEEHIVE 


To  avoid  getting  stung  in  this  delight- 
ful strategy  game,  you'll  need  to  plan 
ahead.  The  original  version  of  "Bee- 
hive" was  written  for  the  512K 
Amiga.  We've  added  fresh  transla- 
tions for  the  Commodore  64  (and  128 
in  64  mode),  Apple  II  series,  IBM 
PC/PCjr,  and  Atari  400,  800,  XL,  and 
XE.  The  IBM  PC/PCjr  game  requires 
a  color/graphics  card  and  BASICAfor 
the  PC,  and  Cartridge  BASIC  for  the 
PCjr.  The  Atari  version  requires  at 
least  32K  of  memory  and  a  joystick. 
The  Commodore  version  requires  a 
joystick.  The  Apple  II  version  re- 
quires a  joystick  and  color  monitor, 
and  runs  on  any  Apple  Il-series  com- 
puter with  either  ProDOS  or  DOS  3.3. 


"Beehive"  is  a  two-player  strategy 
game  that  requires  you  to  concen- 
trate fully  and  develop  long-range 
planning  skills.  The  game  board 
consists  of  121  hexagons  arranged 
in  a  sloping  11  X  11  matrix.  The 
name  derives  from  the  playing 
field's  resemblance  to  the  geometric 
precision  of  a  honeycomb.  The  first 
player  is  assigned  the  left  and  right 
borders  of  the  honeycomb,  while 
the  second  player  is  assigned  the 
top  and  bottom  edges. 

The  object  of  the  game  is  de- 
ceptively simple.  Each  player  tries 
to  connect  a  continuous  line  from 
one  of  his  or  her  borders  to  the 
other.  If  you  are  player  1,  for  in- 
stance, you  need  to  connect  the  left 
border  with  the  right.  The  players 


Steve  Michel 


alternate  turns,  filling  in  cells  of  the 
honeycomb  one  at  a  time.  While 
attempting  to  complete  your  own 
course,  you  must  also  try  to  block 
your  opponent's  way,  and  this  re- 
quires strategic  thinking.  The  first 
player  to  connect  both  borders  wins 
the  game.  As  a  reward,  tiny  bee 
faces  appear  along  the  line  of  con- 
nection, clearly  marking  the  path  to 
victory. 

Entering  The  Game 

Type  in  the  program  listing  for  your 
computer,  referring  to  the  special 
notes  below.  When  you  have  saved 
a  copy  of  the  game,  type  RUN  and 
press  RETURN.  Beehive  begins  by 
asking  for  the  name  of  each  player. 
After  both  players  have  entered 
their  names,  the  beehive  grid  is 
drawn  and  play  begins.  In  the 
Amiga  and  IBM  PC/PCjr  versions, 
the  computer  determines  randomly 
which  player  should  take  the  first 
turn;  in  other  versions,  player  1  al- 
ways goes  first.  In  the  Amiga  ver- 
sion, each  player  takes  a  turn  by 
moving  the  mouse  pointer  to  the 
desired  cell  and  pressing  the  left 
mouse  button  once.  Other  versions 
substitute  joystick  or  keyboard  con- 
trols for  the  mouse  (see  below). 

When  you  choose  a  cell,  it  is 
filled  with  a  solid  circle  and  your 
turn  ends.  While  connecting  your 
own  borders,  you  should  also  be 
trying  to  prevent  the  other  player 
from  making  a  connection.  Play 
continues  until  one  player  or  the 
other  completes  a  continuous  line 
from  one  border  to  the  other,  At 
this  point  a  victor  is  declared,  and 
bee  faces  replace  the  circles  along 
the  entire  winning  route. 


Winning  Strategies 

Like  most  two -player  games.  Bee- 
hive adjusts  itself  to  the  skill  of  the 
players.  The  basic  concept  is  simple 
enough  that  even  small  children 
can  enjoy  playing.  But  when  two 
knowledgeable  players  are  matched, 
play  proceeds  at  a  much  higher  level. 
The  flexibility  of  the  game  allows 
many  different  strategies. 

Here  are  some  important 
points  for  beginners  to  keep  in 
nnind.  To  begin  with,  your  first 
move  does  not  have  to  occur  in  one 
of  your  border  rows.  In  fact,  you 
can  often  establish  a  better  strategic 
position  by  starting  somewhere 
near  the  middle  of  the  playing  field. 
In  a  typical  game  you  will  have  to 
swing  back  and  forth  between  an 
expanding,  offensive  posture  and  a 
defensive,  blocking  posture.  The 
middle  areas  accommodate  both 
strategies  well. 

Second,  it  is  not  necessary  that 
all  of  your  cells  be  connected.  That 
is,  a  new  cell  doesn't  necessarily 
have  to  touch  one  of  your  existing 
cells.  Any  empty  cell  in  the  hive  is 
fair  game  for  either  player,  and  it's 
often  advantageous  to  space  out 
your  cells  to  allow  multiple  paths 
between  borders.  Starting  multiple 
pathways  makes  it  harder  for  an 
opponent  to  block  your  progress 
completely. 

Finally,  keep  in  mind  that  the 
hexagonal  shape  of  each  cell  per- 
mits you  to  move  in  six  different 
directions.  Try  not  to  get  locked 
into  a  strict,  straight-line  strategy 
too  often.  Any  pathway  that  con- 
nects both  borders  is  legal,  and  in 
many  cases  the  winning  path  will 
be  quite  roundabout. 
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Amiga  Version 

Before  you  begin  typing  in  the 
Amiga  version  (Program  1),  notice 
the  small  arrows  marking  the  end 
of  the  line.  They  are  not  intended  to 
be  typed  (in  fact,  we  deliberately 
chose  a  character  that's  not  avail- 
able from  the  Amiga's  keyboard). 
Instead,  wherever  you  see  an  arrow 
in  the  listing,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
it  into  memory. 

The  Amiga  version  of  Beehive 
includes  synthesized  speech.  Either 
player  can  toggle  the  speech  effects 
on  or  off  at  any  time.  Press  the  left 
button  once:  A  small  box  appears, 
indicating  the  current  speech  status. 
If  speech  was  turned  on,  it  is  now 
turned  off,  and  vice  versa.  Press  the 
left  button  again  to  erase  the  speech 
box  and  resume  the  game. 

Commodore  64/128 
Version 

The  Commodore  version  (Program 
2)  runs  on  a  Commodore  64  or 
Commodore  128  in  64  mode;  it  re- 
quires a  joystick.  Plug  the  joystick 
into  port  1  and  use  it  to  move  the 
bee-shaped  pointer  onto  the  de- 
sired cell.  To  select  a  cell,  press  the 
fire  button. 

Atari  Version 

Atari  Beehive  (Program  3)  requires 
a  joystick  and  runs  on  any  Atari  400, 
800,  XL,  or  XE  computer  with  at  least 
32K  of  memory.  Plug  the  joystick 
into  port  1 .  Move  the  pointer  over 
the  cell  you  wish  to  occupy,  then 
press  the  fire  button  to  select  it. 

Apple  II  Version 

The  Apple  II  version  of  Beehive 
(Program  4)  runs  on  any  Apple  II- 
series  computer,  under  DOS  3.3  or 
ProDOS.  A  color  monitor  and  joy- 
stick are  required.  To  select  a  cell, 
move  the  pointer  onto  it,  then  press 
the  button. 

IBM  PC/PCjr  Version 

IBM  Beehive  (Program  5)  requires  a 
color/graphics  card  and  BASICA 
for  the  IBM  PC,  and  Cartridge 
BASIC  for  the  PCjr.  Keyboard  con- 
trols are  used  to  move  the  bee- 
shaped  pointer  around  the  playing 
field  and  to  select  a  cell.  Use  the 
arrow  keys  to  move  left,  right,  up, 
or  down.  When  the  pointer  is  above 
the  desired  cell,  press  the  space  bar 
to  select  it. 
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Program  1:  Beehive  For 
Amiga 

Please  refer  to  the  typing  instructions  in  the 

articie  before  entering  this  iisting. 

•« 

CLS* 

talk$="":  GOSUB  talk* 

GOSUB  init-< 

GOSUB  getnames  ■♦ 

start:-* 

CLS:  RANDOMIZE  TIMER* 

markers  =  0:  winner  =  0:  prev.pl 

ayer  =  0* 

player  =  INT( 2*RKD( 1)+1 )* 

FOR  j  =  1  TO  11:  FOR  k=l  TO  31 i 

hive%(  j,k)-0i  NEXT  k:  NEXT  j  -* 

FOR    j    =    1    TO    20:    pathlen(j)    =    0: 

NEXT  j* 

FOR  j  =  1  TO  65:  path% ( j )  =  0:  u 

aed%(j)  =  0:  node%(j)  =  0:  NEXT 

j" 

GOSUB  drawacreen-* 

BREAK  ONs  ON  BREAK  GOSUB  cloaeup 

* 

* 

main:* 

IF  prev. player  <>  player  THEN-* 

COLOR  4* 

LOCATE  1,2 1  PRINT  "Player: 

"* 

LOCATE  1,2:  PRINT  "Player:  ";* 

COLOR  colr( player) :  PRINT  LEFT$( 

player? (player) , 15)     * 

talk$=playerS (player):  GOSUB  tal 

k* 

prev. player  =  player* 

END  IF* 

WHILE  MOUSE(0)  =  0* 

K  =  MOUSE{0)* 

aS=INKSY?:IF  a?="  "  THEN  GOSUB  r 

eadkey* 

WEND* 

GOSUB  checkmouee* 

IF  used  THEN  main* 

GOSUB  checkline* 

IF  possible  =  1  THEN  GOSUB  check 

winner* 

LOCATE  3,2:  PRINT  " 

* 

IF  winner  =  1  THEN  drawpath* 

IF  player  =  1  THEN  * 

player  =2     * 

ELSE    * 

player  =1     * 

END  IF* 

GOTO  main* 

* 

initt* 

CLS:  colr(l)  =  2:  coIr(2)  =  3* 

DIM  colcor%(ll):  FOR  j  =  1  TO  11 

:  READ  COlcor* ( j ) ;  NEXT  j* 

DATA  5,4,4,3,3,2,2,1,1,0,0* 

DIM  row.inc%(6),  col.inc%(6)* 

FOR  j  =  1  TO  6 :  READ  row.inc%(j) 

,  col.inc%(j)t  NEXT  j* 

DATA  -1,-1,0,1,1,1,1,0,0,-1,-1,- 

1* 

DIM  hive%(ll,31)* 

DIM  used%(65),  node%(65),  path*( 

65),  pathlen(20)* 

SCREEN  1,640,200,3,2* 

WINDOW  1,"BEE  HIVE",, 16,1* 

GOSUB  aetcolor* 

DIM  hexa(100),balll(100),ball2(l 

00) ,eyesl(100) ,eyes2(100)* 

LINE  (30.10)-(12,15) ,7:  LINE  -  S 

TEP  (0,10), 7:  LINE  -  STEP  (18,5) 

,7* 

LINE  -  STEP  (18, -5), 7:  LINE  -  ST 

EP  (0,-10), 7:  LINE  -  STEP  (-18,- 

5), 7* 

LINE  (30, 11)- (13, 15), 6:  LINE  -  S 

TEP  (0,9), 6:  LINE  -  STEP  (17,5), 

6* 


LINE  -  STEP  (16, -4), 6 1  LINE  -  ST 

EP  (0,-10), 6:  LINE  -  STEP  (-17,- 

4), 6* 

GET  (12,10)-(4a,30> ,hexa  * 

CLS:  CIRCLE  ( 30 , 20 ) , 11 , colr ( 1 ) : 

PAINT  (30,20),colr(l) 1  GET  (20,9 

)-(40,31),taalll* 

GOSUB  parts:  GET  ( 18 , 12 )- ( 42 , 30) 

,  eyeal  * 

CLS:  CIRCLE  (30, 20 ) , 11 , colr ( 2 ) : 

PAINT  ( 30, 20), colr ( 2) :  GET  (20,9 

)-(40,31) ,ball2* 

GOSUB  parts:  GET  ( 18, 12 )-(42, 30) 

,  eyes 2:  CLS* 

RETURN* 

* 

parts:   * 

CIRCLE  (25, 19), 4,1:  CIRCLE  (35,1 

9), 4,1* 

PAINT  (25,19),1:  PAINT  (35,19),1 

* 

PSET  (29,17):  LINE  -  STEP  (-5,-5 

)i  LINE  -  STEP  (-5,3)* 

PSET  (31,17)  I  LINE  -  STEP  (5,-5) 

:  LINE  -  STEP  (5,3)* 

CIRCLE  (30, 24), 2,1:  PAINT  (30,24 

RETURN* 

* 

getnaineB  :* 

COLOR  4* 

CLS:  talkS-"WELCOME  TO  BEEE  HIVE 

"!  GOSUB  talk* 

a$  =  "  What  is  the  name  of  playe 

r  1  " :  PRINT  < 

PRINT  aSr:  talk$=a?:  GOSUB  talk: 

INPUT  player?(l)* 

aS  =  "  What  is  the  name  of  playe 

r  2  " :  PRINT  * 

PRINT  a?;s  talk5=a?t  GOSUB  talk: 

INPUT  player? (2)* 

talk$="Press  space  bar  to  turn  s 

peech  off  or  on  during  game."* 

LOCATE  15, 14: PRINT  talk?* 

GOSUB  talk I CLS:  RETURN* 

* 

drawscreen:* 

CLS:  y  =  7* 

FOR  r  =  1  TO  11* 

X  =  180  -  r  *  18* 

FOR  c  =  1  TO  11* 

X  =  X  +  36* 

PUT  (x,y) ,hexa,OR* 

NEXT  c  * 

y  =  y  -t-  15  * 

NEXT  r    * 

PSET  (595, 12), 2:  GOSUB  upndown : 

LINE  -STEP  (0,10) ,2* 

PSET  (596, 12), 2:  GOSUB  upndown: 

LINE  -STEP  (0,10) ,2* 

PSET  (597, 12), 2:  GOSUB  upndown: 

LINE  -STEP  (0,10), 2* 

PSET  (194, 12), 2:  GOSUB  upndown: 

LINE  -STEP  (0,10), 2* 

PSET  (195, 12), 2:  GOSUB  upndown: 

LINE  -STEP  (0,10) ,2* 

PSET  (196, 12), 2:  GOSUB  upndown: 

LINE  -STEP  (0,10) ,2* 

yl=-5:  y2=5!  PSET  (198, 9), 3:  GOS 

UB  across* 

PSET  (198,10),3i  GOSUB  across* 

PSET  (199, 11), 3:  GOSUB  across* 

yl=5:  y2=-5i  PSET  (19, 173), 3:  GO 

SUB  across* 

PSET  (19, 174), 3:  GOSUB  across* 

PSET  (19, 175), 3:  GOSUB  across* 

RETURN* 

* 

upndown : * 

FOR  j  =  1  TO  10* 

LINE  -STEP  (0,10) ,colr(l)* 

LINE  -STEP  (-18,5) ,colr(l)* 

NEXT  j* 

RETURN* 
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Subscribe  to  COMPUTE!  today  through  this 
special  introductory  money-saving  offer,  and 
you'l!  be  getting  a  lot  more  than  just  another 
computer  magazine.  That's  because  each  issue 
of  COIVIPUTE!  comes  complete  with  up  to  20 
a!!-new,  action-packed  programs. 

Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filled 
programs  like  Hickory  Dickory  Dock, 
Switchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  all  year  long. 

The  superb  programs  you'll  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COIVIPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTEI's  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces... from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-247-5470  (in  Iowa, 
1-800-532-1272). 

Do  it  now. 
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across  f* 

FOR  j  =  1  TO  11* 

LINE  -STEP  (18,yl),colr(2)< 

LINE  -STEP  (18,y2),colr(2)-« 

NEXT  j-* 

RETURN-* 

* 

chectonouse:  * 

X   =   M0USE(3):    y  -   MOUSE(4)* 

offset  =  01  used  =»  0-t 

yr  =  INT  (y/15+.5):  row  =  yr:  yr 

=  yr  *  15  ■« 

IF  INT  (yr/2)  =  yr/2  THEN  offset 

=  IB-* 

xr  =  INT  ((x-offset)/36+.S) !  col 

=  xrs  xr  =  xr  *  36  +  offset-* 

IF  row  <  1  OR  row  >  11  THEN* 

used  =  1* 

RETURN* 

END  IF* 

col  -  col  -  colcorS ( row) * 

IF   col  <  1  OR  col  >  11  THEN* 

used  =  1* 

RETURN* 

END  IF* 

rowhive  =  row:  colhive  =  10+2*co 

1-row* 

IF  hive%( row, colhive)  <>  0  THEN 

4 

used  =  1* 

RETURN* 

END  IF   * 

markers  =  markers  +  1* 

hive! (row, colhive)  =  player* 

IF  player  =  1  THEN  * 

PUT  (xr-10,yr-9),balll,OR  * 

ELSE    * 

PUT  (xr-10,yr-9),ball2,OR* 

END  IF* 

RETURN* 

« 

checkline:* 

possible=l* 

IF  player  =>  2  THEN  * 

FOR  row  =  1  TO  6:  f f=0 :  fb=0* 

FOR  col  =  1  TO  ll!  colhive=«10+2* 

col -row* 

IF  hive%(row,colhive)=player  THE 

N  ff=l* 

colhive  =  10+2*(col)-(12-row)* 

IF  hive* {12-row, colhive )=player 

THEN  fb=l* 

NEXT  col   * 

IF  ff=0  OR  fb=0  THEN  * 

possible  =  0* 

row  =  lE+09* 

END  IF* 

NEXT  row* 

ELSE* 

FOR  col  =■  1  TO  6;  ff=0!  fb=0* 

FOR  row  =  1  TO  11:  colhive=10+2* 

col-row* 

IF  hive%( row, colhive )=player  THE 

N  ff=l* 

colhive  =  10+2*(12-col)-row* 

IF  hive*(row,colhive)=playar   THE 

N  fb=l* 

NEXT  row  * 

IF  ff-0  OR  fb=0  THEN  * 

possible  =  0* 

col  =  lE+09* 

END  IF* 

NEXT  col* 

END  IF* 

RETURN* 

4 

checkwinners* 

LOCATE  3,2:  COLOR  4:  PRINT  "Chec 

king. . ."* 

used.cntr  =  0s  winner  =  0:  node. 

cntr  =  0t  node. total  =  0:  counte 

r  =  0* 

IF  player  =  1  THEN  checkl* 

FOR  col  =  1  TO  11:  row  =  1* 

IF  hive* (row, 10+2* col-row)    <>    pi 
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ayer  THEN  Bkip2* 

noderow  =  row:  nodeool  »  cols  GO 

SUB  usedlookup* 

IF  used. flag  =  1  THEN  Skip2* 

node. total  =  1:  path. total  =  l:o 

ounter  =  1* 

pat,h%{l)  =  100  *  noderow  +  nodec 

ol* 

GOSUB  checkpath* 

IF  winner  =  1  THEN  col  =  lE+09* 

skip2:* 

NEXT  col* 

RETURN* 

■« 

checkl:   * 

FOR  row  =  1  TO  11:  col  =  1* 

IF  hive* ( row, 10+2*col-row)  <>  pi 

ayer  THEN  akipl* 

noderow  =  row:  nodecol  =  cols  GO 

SUB  used lookup* 

IF  U8ed.flag  =  1  THEN  skipl* 

node. total  =  1:  path. total  =  Is 

counter  =  1* 

path*(l)  =  100  *  noderow  +  nodec 

ol* 

GOSUB  Checkpath* 

IF  winner  =  1  THEN  row  =  lE+09* 

skipl :* 

NEXT  row* 

RETURN* 

* 

usedlookupi* 

used. flag  =  0:  search  =  100  *  no 

derow  +  nodecol* 

Ik  =  01  IF  used.cntr  =  0  THEN  sk 

ipsearch* 

FOR  Ik  =  1  TO  used.cntr* 

IF  search  =  used* (Ik)  THEN  * 

used. flag  =  1* 

Ik  =  lE+09* 

END  IP    * 

NEXT  Ik* 

skipaearchs* 

IF  used. flag  =  0  THEN* 

used.cntr  =  used.cntr  +  1* 

used* (used.cntr)  =  search* 

END  IP* 

RETURN* 

* 

checkpath:* 

node. cntr  =  0* 

FOR  nc  =  1  TO  6* 

noderow  =  noderow  +  row.inc%(nc) 

s  nodecol  =  nodecol  +  col.inc*(n 

c)* 

IF  noderow  <  1  OR  noderow  >  11  0 

R  nodecol  <  1  OR  nodecol  >  11  TH 

EN  akipnode 

4 

IF  hive* ( noderow, 10+2*nodecol-no 

derow)  <>  player  THEN  skipnode* 

GOSUB  uaedlookups  IP  used. flag  = 

1  THEN  skipnode* 

node. cntr  =  node. cntr  +  1* 

node. total  =  node. total  +  Is  nod 

e% (node. total)  =  100  *  noderow  + 

nodecol* 

IF  (player  =  2  AND  noderow  =  11) 

OR  (player  =  1  AND  nodecol  =  11) 

THEN  * 

winner  =  1* 

path. total  =  path. total  +  1* 

path* (path. total)  =  100  *  nodero 

w  +  nodecol  * 

nc  =  lE+09* 

END  IP   * 

skipnode :* 

NEXT  nc* 

IP  winner  =  1  THEN  RETURN* 

IF  node. cntr  =  0   AND  node. total 

=  0  THEN  RETURN* 

IF  node. cntr  =  0  THEN  * 

path. total  =  path. total  -  pathle 

n (counter)* 

pathlen (counter)  =  0* 


counter  =  counter  -  1* 

END  IP    * 

IF  node. cntr  >  1  THEN  counter  = 

counter  +  node. cntr  -  1* 

noderow  =  INT(node%(node. total) / 

100)* 

nodecol  =  node* (node. total)  -  10 

0  *  noderow* 

path. total  =  path. total  +  1* 

pathlen( counter)  =  pathlen( count 

er)  +  1* 

path* (path. total)  =  node* ( node. t 

otal)* 

node. total  =  node. total  -  1  * 

GOTO  checkpath  * 

* 

drawpaths* 

LOCATE  1,1b  PRINT  " 

" 5  COLOR  44 

LOCATE  1,1:  PRINT  "THE  WINNER:  " 

;:COLOR  colr(player) :  PRINT  play 

er?( player) ;* 

a5  =  "THE  WINNER  IS  "  +  player? ( 

player)!  talk?=a5:  GOSUB  talk* 

FOR  j  =  1  TO  path. totals  offset 

=  0* 

row  =  INT(path%( j)/100)s  col  =  p 

ath*(j)  -  100* row  +  colcor%(row) 

* 

IF  row/2  =  INT (row/2)  THEN  offse 

t  =  18  * 

xr  =  col  *  36  +  offset:  yr  =  row 

*  15* 

IF  player  =  1  THEN* 

PUT  {xr-10,yr-9) ,  balll,  XOR  * 

PUT  (xr-12,yr-5) ,  eyeal,  OR* 

ELSE* 

PUT  (xr-10,yr-9),  ball 2,  XOR* 

PUT  {xr-12,yr-5) ,  eyeaZ,  OR* 

END  IF* 

NEXT  j   * 

* 

goagain:* 

LINE  (419,139)-(625,186),7,b:  LI 

NE  (420,140)-(624,185),7,b* 

LINE  (421,141)-(623,184),4,bf !  C 

OLOR  6* 

LOCATE  19,55:  a?  =  "  WANT  TO  PLA 

Y  AGAIN  7    ":  PRINT   a?T  * 

LINE  (431,162)-(487,180),7,bf!  L 

OCATE  22,56:  PRINT  "  YES  "r* 

LINE  (567,162)-(615,180),7,bf :  L 

OCATE  22,73:  PRINT  "  NO  " ;  * 

talk$=a$:  GOSUB  talk* 

4 

waiter :* 

WHILE  MOUSE(0)  <>  1* 

WEND* 

X  =  M0USE(3):  y  =  H0USE(4)* 

IP  y  <  162  OR  y  >  130  THEN  waite 

r* 

IF  X  >  430  AND  X  <    488  THEN  star 

t* 

IF  X  >  566  AND  X  <  616  THEN  clos 

eup* 

GOTO  waiter* 

4 

aetcolor :4 

PALETTE  0,.3,.3,.3  ' grey4 

PALETTE  1,0,0,0  'black* 

PALETTE  2,0,1,0  'green* 

PALETTE  3,0,0,1  'blue* 

PALETTE  4,1,1,1  'white4 

PALETTE  5,0,1,1  ' aqua4 

PALETTE  6,1,1,0  'yellow* 

PALETTE  7,. 8,. 2,0  'red* 
RETURN* 

4 

eloseup:* 

PALETTE  0,.1,.1,1     'blue* 
PALETTE  1,1,1,1       'white* 
PALETTE  2,0,0,0       'black* 
PALETTE  3,. 85,. 2,0    'red* 
WINDOW  CLOSE  1* 
SCREEN  CLOSE  1* 


<f 


i 


Famous  National  Brand 

49       Commodore"*  Atarl^  Apple"*  IBM"  '^  j, 

f^  ZVi"  Letter  Size'^^ 

.?  80  Column^^ 
Printer  Sale 

•  Word  Processing  •  Program  Listings  •  Graphics  •  Quiet 

Operation  •  Upper  and  Lower  case  •  Ail  points  addressable 

Graphics  •  Underline  •  Enhanced  •  Much  much  More 

Super  Quality 

This  printer  was  made  by  Canon®  for 

one  of  the  largest  computer 

manufacturers  in  the  world.  The  Big 

Blue  printer  comes  ready  to  hook  up 

to  the  serial  port  of  the  IBM®PC  jr. 

Plus  with  low  cost  adapter  cables  you 

can  connect  the  Big  Blue  printer  to  the 

IBM®PC,  IBM®XT,  IBM® AT, 

Apple®II,IIe,IIc,  Commodore® 

64,128,  Atari®,  plus  many  more. 


8V2"  Letter  Size  Carriage 


•  15  Day  Free  Trial 
90  Day  Immediate  Replacement  Warranty 


Now  you  can  have  a  full  fledged  8 1/2 "  letter  size  80  column  printer  for  less  than  the  cost  of  a  large 
box  of  paper.  This  printer  uses  advanced  thennal  technology  to  print  upper  and  lower  case  (with 
true  lower  descendet-s),  underline,  enhanced,  all  points  addressable  graphics  (works  with  Print- 
shop)  plus  More.  Print  out  pictures,  program  listings,  wordprocessing  pages,  graphics  and  more. 
Perfect  for  the  homeowner  or  student  and  definitely  affordable.  Fantastic  Printer  at  an  unbeatable! 
price.  List  $199.00  Sale  $39.95 


Intelligent  Commodore  Interface —  Allows  you  to 
connect  the  Big  Blue  printer  to  the  printer  port  of  the 
Commodore  64  and  128  computer.  Print  Commodore 
graphics,  use  Prlntshop,  Word  processors  and  more... 
List  $49.95  Sale  »24.9S 


Intelligent  Atari  Interface —  Allows  you  to  connect 
the  Big  Blue  printer  to  Atari  computers  (except  1200). 
Print  Atari  graphics,  Printshop  .word  processors,  and 
more...  List  $49.95  Sale  *24.95 


IBM®,  Apple®  RS-232  Adapter—  Adapts  the  Big  Blue  printer  to  be  used  with  any  RS-232  port. 
List  $19.95  Sale  $9.M 

Paper  (2  Rolls)  List  $19.95  Sole  $9.95 

JWj^AeeJj^egngn,  CammodOT,  Ann  <ir»  troil.m«<..  a<  InUowilonal  »u.Hi«.  Mathlnw.  ApcU  Canp4H«-.  Canon  Inc.  Cwnnwden  »u.ln«.  Mochlnn.  Atari  Inc.  *.m 


Add  $10.00  for  shipping,  handling,  and  Insuronco.  Illinois  residents  ptease  odd 
tV^  %  solas  lax.  Add  20.00  for  CANADA.  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  be  In  U.S.  Doilors.  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Cashier  Checl,,  Money  Order  or 
Peraonol  Checls.  Allow  M  days  for  delivery,  2  to  7  doys  for  phone  orders   1  day 
express  mall.  Prices  &  AvalloblMty  subject  to  chonge  without  notice. 
VISA  ~  MASTSR  CARD  -  C.O.D. C.O.D,  on  phone  orders  only. 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrlngton,  Illinois  600T0 

3 1  a/382-S2a4  to  order 


COMMODORE  64 
COMPUTER 

(Order  Now) 

$  1 49«« 


•C12BDislci79'ea.* 

•  Comstar  Writer  64  $19.9S 

•  13"  Color  Monitor  «134.9S 


COMMODORE  64 


Commodore  64 


Plus  $30.00  SSH 


Com.  1541 
DImIc  Drive 

13"  Color 
Monitor 


^457 

(Ud,  IJty)  ^     ^^ 


CI  28  Commodore 

Computer  & 

1571  Disk  Drive 


•  Voice  Synthesizer  *39.95 
•12"  Monitor  $79.95 


CALL  BEFORE  YOU  ORDER 


SPECIAL  SOFTWARE  COUPON' 


PRICES  AAAY  BE  LOWER 


COMMODORE  M  COMPUTER  •149.43 

You  pay  only  $149.95  whan  you  ordttr  tha 
powartui  e4K  COMMODORE  t4  COMPUTER  I  LESS 
(ha  value  of  tha  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  wa  pock  with  your  computar  that  allowi 
you  )e  SAVE  OVER  $250  oH  sohwara  sale  prlcas!  I 
With  only  $T00  of  lavlngs  applied,  your  net 
computar  cott  li  $49.95!  I 

*  CiaS  DOUBLE  SIDED  DISKS  79*  EA. 

Gat  thasa  S'/i"  Double  SIdad  Floppy  Diaks 
tpeclally  detignad  lor  the  Commodore  12S 
Computer  (1571  Disk  Drive).  100%  Certified, 
Llf»tlm»  Warrarrty,  Automolk  Lint  Cleaning 
Liner  Included.  1  Box  ol  10  ■  $9.90  (99'  ea.).  5 
Boxes  of  10  ■  $44.50  (89'  ea.).  10  Boxes  of  10 
■$79.00  (79"  ao.). 

13"  COLOR  MONITOR  »139.95 

You  pay  only  $139.95  whan  you  order  ihit  13" 
COLOR  MONITOR.  LESS  the  value  of  the  SPECIAL 
SOFTWARE  DISCOUNT  COUPOI4  we  pack  with 
your  monitor  that  ollows  you  to  save  over  $250  off 
software  sale  prices! !  With  only  S100  of  savings 
applied,  your  net  color  monitor  cost  Is  only  $39,95. 
(16  Colors). 

Pramtum  Quality  19O'170  CPS 
Cotnetar  Aaro  1M  Printar  *199.00 

The  COMSTAR  Aero  160  gives  you  a  10"  carriage, 
150-170  CPS,  9  X  9  dot  motrix  with  double  strike 
capability  for  18  x  IB  dot  molrlx  (near  letter 
quality),  high  resolution  bit  Image  (120  x  144  dot 
motrix),  underlining,  back  spacing,  left  and  right 
margin  salting,  true  lower  decendert  with  super 
ond  subscripts,  prints  standard,  block  grophlcs 
ond  special  cfviracters.  It  gives  you  print  auollty 
and  features  found  on  printers  costing  twice  as 
much  1 1  (Centronics  Parallel  Interlace)  List  $499.00 
Sale  (1M.M. 

t"  SAMSUNG  OMEN  SCKfEN  MONITOIl 

Super  High  Resolution  composite  green  screen 
monitor.  Perfect  for  SO  column  use  with  The  CI 28 
computar  (Raq.  $19.95  Cable) 
lilt  $129.95  Sale  IM.tl. 


M  COLUMNS  IN  COLOR 
COMSTAR  WRITER  M  WORD  PROCESSOR  tif.tl 

This  COMSTAR  WRITER  64  WORD  PROCESSOR  Is 
the  finest  available  for  tha  COMMODORE  64 
computar!  The  ULTIAAATE  FOR  PROFESSIONAL 
Word  Processing,  DISPLAYS  40  or  80  COLUMNS  IN 
COLOft  or  bbcK  and  white  I  Simple  to  oparote, 
powerful  text  editing,  complete  cursor  ond 
Insert/delete  key  controls  line  ond  parogroph 
Insertion,  automatic  deletion,  centering,  margin 
settings  and  output  to  oil  printers!  List  $99.00. 
SALE  ll«.«S.  Ltd.  Oty     Cfafouf  ifwn 


We  pack  a  SPECIAL  SOfTWARt  DISCOUNT 
COUPON  with  every  COMMODORE  M 
COMPUTER,  DISK  DRIVE,  PRINTCR,  or 
MONITOR  we  telli  This  coupon  allows  you 
to  SAVE  OVER  tlSa  (»f  SALE  PRICESII 


(Examplos) 
PROFESSIONAL  SOFTWARE 

COMMODORE  64 

Heme  List        tela      Cowpofl 


Pap«rCllp 

SS9.9S 

$34.93 

S29.9S 

Consultant 

»59.?S 

$49.93 

$39.93 

L«wl<rB<MKl 

S39.W 
U*.9S 

$24.95 
$27.93 

$22.95 

$24.93 

Hiillvr'iProlKl 

»39.M 

$23.9! 

$19.9! 

Proctlcolc  {tptmud  »h*«t) 

tS9.« 

$19.95 

$14.95 

Volc»  ComnrHind  Modula 

$79.« 

$39.95 

$34.93 

Nina  Princtt  In  Ambar 

$32.93 

$24.93 

$21.93 

5u|9«r  B<jwl  Sunday 

$35.00 

$22.93 

$19.93 

Flip  and  Fit*  Dlik  Filar 

$34.93 

$14.93 

$13.93 

Pro  Joy  Stick 

$19.93 

$12.93 

$10.00 

PortyWof* 

$I9.9S 

$14.93 

$11.93 

Duit  Cover 

$  8.93 

$  i.93 

$  4.60 

Financial  Plonnar 

Sylvia  Portar 

$59.93 

$38.95 

$35.93 

Hardball 

$29.93 

$18.93 

$16.93 

C»4  Troiiblaalwot  i 

Repair  Guld* 

$24.93 

$13.93 

$12.95 

fSoe  over  tOO  coupon  Ittrra  In  our  attalog) 

Writ*  or  coll  for 
Snmpl*  SPECIAL  SOFTWARE  COUPONI  I 


ATTENTION 

Computer  Clubs 

Wo  Offor  Big  Volume  Discount* 
CALL  TODAY! 


PROTECTO  WARRANTY 

All  Protado*!  products  carry  a  minimum  90  day  warranty. 
If  anything  iaili  within  90  days  from  tha  data  of  purchota, 
■imply  sand  your  product  to  us  via  United  Parcel  Service 
prepaid.  We  will  IMMEDIATELY  sand  you  a  replacement  at 
no  charge  via  United  Parcel  Service  prepaid.  This  worranty 
proves  once  oggln  that  Iffe  log*  Ovr  Otatottteffs. 


CI  as  COMPUTER  a.  isri  »4*9.eo 

Now  you  can  get  the  CI  28  Commodore  computer 
S  tfie  1571  Disk  Drive  lor  one  low  price  of  only 
$499.00.  List  $698.00 
SAU  t4««.M. 

340K  1S71  COMMODORE 
DISK  DRIVE  S2S9.0O 

Double  Sided,  Single  Disk  Drive  for  C-128  allows 
you  to  use  C-138  mode  plus  CPM  mode.  17  times 
taster  tfKin  1541 ,  plus  runs  all  1541  formtsts. 
List  $349.00.  Sol*  $1S«.M. 

SUPER  AUTO  DIAL  MODEM  •29.93 

Easy  to  use.  Just  plug  Into  your  ComnrKxicHw  64 
computer  ond  you're  ready  to  transmit  and 
receive  irtessoges.  Easier  to  use  than  dialing  your 
telephone,  [ust  push  one  key  on  your  computer! 
Includes  exclusive  easy  to  use  program  for  up  and 
down  loodlr^g  to  printer  ar>d  disk  drives. 
•est  In  U.S.A.  list  S99.00,  SALE  «M,t}. 
Coupon  S24.93. 

VOICE  SYNTHESIZER  •39.99 

For  Commodore-64  computers.  Just  plug  It  In  and 
you  can  program  words  and  sentences,  adjust 
volume  ond  pitch,  moke  talklr>g  odventure  gomes, 
sound  action  games  and  customized  talkies  I  I 
PLUS  ($19.95  value)  TEXT  TO  SPEECH  progrom 
Included  FREE,  lust  type  a  vi^rd  and  ftear  your 
computer  tolk  —  ADD  SOUND  TO  "ZORK",  SCOTT 
ADAMS  AND  OTHER  ADVENTURE  GAMES!  I  (Disk 
or  tope.)  List  $89.00.  SAU  $3«.«S 

12"  SAMSUNG  AMBER  SCREEN 
MONITOR  *79.95 

Super  High  Resolution  amber  screen  monitor.  80 

columns   x   24   lines,   eosy   to  read,   a   must  for 

wordprocessing  ,  Fontastlc  value. 

list  $1 29.00.  Sale  $n.«5. 

(CI 28  coble  $19.95.  C&4.  Atari  cable  $9.95) 

PRINTER/TYPEWnilTER 
COMBINATION  *199.9S 

Superb  letter  quality,  daisy  wfieel 
printer/typewriter  combination.  Two  mochlnes  In 
one  —  just  a  flick  of  the  switch.  Extra  large 
carriage,  typewriter  keyboard,  outomatlc  morgln 
control  compocl.lightwelght,  drop  In  cassette 
ribbon!  (90  day  warranty)  Centronics  parollel 
Interface  Built  -in.  List  $349.00.  SALI  $1«9.«S. 

flfrf.  QtyJ 

14"  ROB  &  COMPOSITE 
COLOR  MONITOR  SXS9.95 

Must  be  used  to  get  80  columns  In  color  with  80 
column   computers   (CI 28   -   IBM  -  Apple),   (RGB 
Coble  $19.95)  Add  $14.50  shipping, 
list  $399.00.  SALE  $U«.*S. 


•  LOWEST  PSiaS  •  1S  DAT  FREE  TVIAL 

•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


PHONE  ORDERS 

B  a.m.  •  8  p.rri.  C.S.T.  Waskdoye 
9  a.m.  -  T2  noon  C.S.T.  Sotufday 


Add  SIO.OO  for  shipping,  hondling  ond  insuronce.  Illinois  residents 
please  odd  6%%  tax.  Add  S20.00  for  CANADA,  PUERTO  RICO. 
HAWAII.  ALASKA,  APO-FPO  orders.  Canadion  orders  must  be  in  U.S. 
dollars.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT 
CANADA.  Enclose  Cashier  Check.  Money  Order  or  Persona!  Check. 
Allow  1 4  doys  for  delivery.  2  to  7  days  tor  phone  orders,  I  day  express 
mail  I  Prices  &  Availability  subject  to  change  without  notice. 
VISA  — MASTERCARD—  C.O.D.         No.  C.O.D.  toConoda.  APOFPO 


•  M  DAY  FREE  REPLACEMENT  WARRANTY 

•  OVER  5M  PROGRAMS  •  FREE  CATALOGS 


We  Lo've  Our  Customers 

Box  550,  Borrington,  Illinois  6(X)10 

312/382-5244  to  order 


Famous  Oomstar  IVational  Brand 

Printer  Sale 

Includes  Commodore 

Near  Letter  Quality        I  n  f  A  FtCI  C 6 


Near  Letter  Quality 


*  V^caif  ue  in 


•  100  CPS  draf  t/20CPS  near-letter  quality  •  Dot  Addressable  Graphics  •  Adjustable 

Tractor  and  Friction  Feed  •  Automatic  Paper  Loading  •  Right  and  Left  Margin 

settings  •  Pica,  Elite,  Condensed,  ItaUcs  •  Superscript  •  Subscript  •  UnderUne,  Bold 

print,  Double  Strike  •  Superb  NEAR  LETTER  QUALITY 


Easy  to  Use 

Fantastic 
Oraphics 


2  Year 
Warranty 


The  Comstar  1000  is  one  of  the  best  values  in  the  United  States  today.  Print  your  letters,  documents,  programs, 
pictures,  and  more  at  a  blazing  100  Characters  Per  Second  or  20  cps  in  the  Near  Letter  quality  mode.  (  Looks  just 
like  it  came  from  a  typewriter.  )  Plus,  choose  your  printing  mode  (NLQ,  Draft)  from  your  wordprocessor  or  by 
simply  pushing  the  controls  on  the  front  panel.  Fantastic  Quality  at  a  Fantastic  Price.List  $349.00  SALES179.95. 


Print  Method 

Serial  impact  dot  matrix  (9  pin) 

Print  Speed 

Draft-  100  CPS  NLQ-  20  CPS 

Character  Sets 

96  ASCII  Characters,  Marker,  Symbols 
(includes  italic  font) 


Ribbon  {Life  exp.) 

Block:  cassette  (2.5  million  characters) 

Dlmanslont 

1 5.4  (W)  X  10.9  (D)  X  4.7  (H)  inch 

Weight 

Approx.  10  lbs 

Character  Spacing 

Fixed 


'Line  Spacing 

1/6,  1/8,  7/72,  and  1/216  Inch 

Paper  Feed 

Adjustable  tractor  and  friction  feed 

Paper  feeding  Direction 

Bi-dlrectional 

Copies 

2  plus  original 


^u|:>|3lV   Is   t.i 


Add  $10,00  for  shipping,  handling  and  insurance.  Illinois  residents 
pleose  add  6°/.  lox.  Add  J20.00  for  CANADA,  PUERTO  RICO,  HAWAII, 
ALASKA.  APO-FPO  orders,  Conodion  orders  must  be  rn  U,5,  dollars, 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT  CANADA, 
Enclose  Coshiers  Check,  Money  Order  or  Personol  Check,  Allow  1^ 
doys  for  delivery,  2  to  7  doys  tor  phone  ofders,  1  day  express  rrioil ! 
VISA—  MASTER  CARD  —  C,0,D. 

No  C.CD,  to  Conoda,  APO-FPO, 


We  Liove  Our  Customers 

22292  N.  Pepper  Rd..  Borrlngton,  Illinois  60010 

312/382-5244  to  order 


"Beehive"  for  the  SUK  Amisa,  a  chal- 
lenging strategy  game. 


STOP"* 


readkeys* 

WINDOW  4, "Speech", ( 250, 70)-( 390, 

110)  ,16,l-« 

IF  TalXFlag=l  THEN* 

talkS="Now  I  can  talk."-* 

PRINT  talk$-< 

TalkFlag=l-Talk:Flag< 

GOSUB  talk-* 

GOTO  clearmouse'* 

END  IF-* 

IF  TalkFlag=0  THEN-* 

talk?="OK,  I'll  be  quiet.  "■» 

PRINT  talk?-* 

GOSUB  talk-* 

TalkFlag=l-TaIkFlag-« 

END  IF-* 

* 

clearmouse  I -< 

WHILE  MOUSE(0)<>0:WEND-» 

PRINT  "Prega  button  once"-* 

PRINT  "to  continue..."-* 

WHILE  HOUSE(0)<>1:WEND-* 

WHILE  INKEY?<>""iWEND-« 

WINDOW  CLOSE  4-t 

RETURS-* 

4 

talk:-* 

IF  TalkFlag=0  THEN  SAY  TRANSLATE 

$(talk$)-* 

RETURN-* 

* 

Program  2:  Commodore 
64/128  Beehive 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 

For  instructions  on  entering  this  listing,  please 

refer  to  "COMPUTEI's  Guide  to  Typing  in 

Programs"  In  this  issue  of  COMPUTE!. 

EF  10  POKE56,48:CLR:GOTO80 

RK  20  GOSUB560 

QK  30  JV=15- ( PEEK ( 56321 )AND1 5) 

-12a*( ( PEEK ( 56321 )AND16) 

<>16) :1FJV>127THENRETURN 
AX    40    IFJV=0THEN30 
FF    50    TX=X:TY=Y!TX=TX+X(JV):TY 

=TY-KY(JV) 
HK    60    IFTX<lORTX>110RTY<10RTY> 

11THEN30 
BQ    70    X=TXiY=TysGOSUB560tGOTO3 

0 
XQ  80  GOSUB170:GOSUB530 
RM  90  POKE53280,5:POKE53281,5 : 

PRINT"(CLR] (6    DOWN} 

[6    RIGHT}"; :GOSUB470:POK 

E53269,l 
SC    100    INPUT"[BLK3 (3    DOWN} 

(2    RIGHT) ENTER   YOUR   NAM 
E    PLAYER    ONE"rPN$(l) 
SR    110    INPUT "{ DOWN }{ 2    RIGHTJEN 
TER    YOUR    NAME    PLAYER   TW 
0";PN$C2) !POKE53269,0 
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The  Commodore  64/128  version  of 
"Beehive"  features  a  bee-shaped  pointer. 


QC  120 


HM 

130 

RM 

140 

MM 

150 

AK 

160 

KF 

170 

SK 

180 

SP 

190 

GF  200 


AP  210 


JE  220 


ER  230 


RC 

240 

SC 

250 

HR 

260 

DA 

270 

MP 

280 

RA 

290 

JA 

300 

PH 

310 

CQ 

320 

CS 

330 

JR 

340 

JM 

350 

GB 

360 

SE 

370 

SH 

3B0 

JG 

390 

GH 

400 

CB 

410 

GOSUB400 ;F0RA=1T02 iPN? ( 

A)=LEFT5(PN?(A),15) iNEX 

TiX=l :P=1:UN=1 !Y=1 

B?="YOUR  TURN  "iGOSUBll 

60 

GOSUB20  :SP=1397-f40*Y-l-X* 

2-y 

iyPEEK( SP ) <  >  32THENF=10 : 

GOSUB580!GOTO140 

BD(X,Y)=UNiPOKESP,Sl tPO 

KESP-f54272,7*(P-l)  iGOSU 

B590:GOSUB610iP»3-P!GOT 

0130 

ML$=  "  ill  " -KHR?  (  8) -H"  gXi  < 

"+CHR?  (  3)-!-"  g2i3a''-K31RS  ( 

16)-fCHR$(248)+"LiBlgT|" 

!POKEe35,0 

POKE836,208iPOKEa30,0:P 

OKE831,216 :POKE828,0jPO 

KE829,56!POKE56334,0 

POKEl , 51 :ML$=ML$ !SYS(PE 

EK(  51 )  ■1-256*PEEK (  52 ) )  «P0 

KEl,55tPOKE56334,l 

P0RI=12568TO12631 iREADJ 

:P0KEI, J: NEXT: POKES 3272 

,28 

FORA=0TO10:READX(A),Y(A 

) sNEXTAs  FOHA=a32TOa95 :R 

EADB I POKEA , B ! NEXT 

POKE53276,l!POKE2040,13 

:POKES3287,7 IPOKE53285, 

0 : RETURN 

DATA231,126,24,24,24,24 

,126,2  31 

DAT A0, 0,0, 0,0, 0,126, 231 

DATA231,12e,0,0,0,0,0,0 

DATA7,30,24,24,24,24,12 

6,231 

DATA7,30,24,24,24,24,30 

,7 

DATA224,120,24,24,24,24 

,120,224 

DATA2  31,126,24,24,24,24 

,120,224 

nATA195,36,126,219,255, 

126,36,24 

DATA    0,0,0,-1,0,1,0,0,- 

1,0,0,0,0,0,0,0,1,0,0,0 

,0,0 

D  AT  A0  , 0  , 0  ,  0  ,  0  , 0  ,  0  ,  1 6 

DAT A0, 0,65, 80, 0,65, 164, 

20 

DATA70, 100, 1,150, 100,1, 

165,144 

DATA0,106,64,5,105,0,26 

,170 

DATA64, 21, 153, 144,26,86 

,80,5 

DATA5 ,144, 0,2, 96, 0,1, 16 

0 

DATA0 ,0,0,0,0,0,0,0 

DATA0,0,0,0,0,0,0,53 

PRINT"{CLR] (8    DOWN}"SPC 

(13)"{RVS}(BLK)£{YEL} 

gJit23    SPACES} {BLK)£" 

PRINTSPC(12) " {BLK} {RVS} 


£{0FF3£";  tF0RA=»lT011l 
PRIHTTWHT]?    "mNEXTAiP 
RINT"     [BLK){RVS)£lOFF} 
£" 
BC    420    FORA-lTOll 
QA    430    PRINTSPC(12-A)" IBLK} 
iRVSlf {OFF)f (WHT}6    "; 
iFORB-lTO10iPRINT"#    ";i 
NEXT:  PRINT  ")  t  RVS  }(  BLKl 
£(OFF)£"iNEXTA 
GP    440    PRINT "TBLK) {RVS3£{0FF} 
£{2    SPACES}"; :F0RA=1T0 
lllPRIST"tWHT)*    "fiNEXT 
tPRINTMLEFT}  (BLK}  iRVS] 
f (0FF)£" 
FM    450    PRINT"TflLK}f {YEL){RVS} 
123    SPACES }T0FP } gHl 
t  BLK)£" ! print " {HOME } 
17    SPACES}"; 
XJ    460    POKE1827,39!POKE56099,1 
iPOKE1459,40:POKE557  31, 
1 
GH    470    PRINT"tBLK} (RVS}iKi 

I  2    SPACES ) { OFF  1 

(9    SPACES) [RVS} EK3{ OFF} 

EKHRVS}iK3(0FF)iKi 

(BLK}"SPC(24)"(RVS}iK| 

( OFF ) iKi { RVS } IKI ( OFF } 

EK3"SPC(8)"lRVSJEKi 

{0FF)|K|(RVS}EKi[OFF} 

EKi"SPC(24) ; 

MJ    480    PRINT  "( RVS  )iK3{  OFF  JiK3 
[RVS}iK|fOFF)gKiERVS) 
Ek^ ^Di Bin  OFF )iVi iRVS) 
EK3fD|El|(OFF}gV3fRVS3 
BKj[OPF}iKHRVS}EK| 
[OFF)'iKi     (HVS}iF§BD| 
{OFF}     [RVS)iK3{OFF)|K3 
[  RVS 3  iKi  {  OFF  }  |K3  [  RVS  } 
EK|BD||l§{0FF3|Vi"SPC(l 
2)"iRVS)BKH2    SPACES) 
(off)     (RVS)EKiiCi"r 

PP    490    PRINT" {OFF }iF|    tRVS)BK3 
EC3{OFF3gF3     [RVS}iKi 
{2    SPACES) {OFF )BKi 
lRVS]iK3tOFF)EK3     {RVS} 
EK3(OFF}iK3{RVS)EK3 
tOFF}EKHRVS}iKiBCi 
{0FF}EPHYEL)"SPC(13)" 
{RVSJEKlioFFJiKitRVS) 
gKi{0FF)|KHRVS)EK3 
{0FF}EKi{2    SPACES) (RVS) 
|k3{0FF}EK|{2    SPACES) 

{RVS}iK3"; 

HD    500    PRINT" {OFF )BKi{ RVS }gK3 
[OFFliKi     (RVS}iKHOFF) 
gKi     EC3{RVS)BC3iV3{OFF} 
gV3{RVS)|K3{OFF3EK3 
{ BLK ) "SPC ( 14 ) " ( RVS } iKi 
{ OFF } iKi  f  RVS } iK3 { OFF  3 
EKiBCi{RVS3E2    13 {OFF  3 
gvi|c3{RVS]i2    13{0FF} 
Ev3{RVS}EK3{OFP}gK3 
{RVS)^Ki{0FF3iKi     {RVS) 
i2    I3[0FF)    "; 

FC    510    PRINT"    EC|gV3    iC3(RVS) 
g2    l3C0FF}gv3"SPC(12)" 
{RVS) iKi (2    SPACES) (OFF) 
" SPC ( 9 ) " { RVS } iK3 { OFF ) 
iKi { RVS  3  iKi { OFF) iKi " : 

SH  520  POKE53248,30iPOKE53264, 
1 SPOKE53  249 ,150 iRETURN 

JF  530  FORA=54272T054295: POKEA 
,0:NEXT:POKE54296,15 :P0 
KE54277,25 

MX  540  DIMTA(11,11,2),EHC61),E 
V(61) 

SE  550  DIHBD(11,11),SH(50),SV( 
50) iSP?="{RVS) "iFORA=1T 
O20iSP$=SPS-f"  ":NEXT:RE 
TURN 

KM  560  POKE53249,0:TX=X*16-!-(ll 
-Y)  *  8-1-36  :  P0KE53248  ,TXAK 
D255 


hnother  ^(j^yitastic  QQlledion 


OF  APPLE 

PROGRAMS 


COMPUTE!  Books 
continues  the  tradition 
of  excellent  Apple-ll  series  cover- 
age with  COMPUTBI's  Third  Book  of 
Apple,  the  follow-up  to  COMPUTEi's  First  and 
Secor)d  Boole  of  Apple.  These  three  program- 
packed  books  offer  you  in-depth  tutorials, 
valuable  utilities,  innovative  applica- 
tions, and  terrific  games  to  entertain 
the  whole  family. 


COMPUTEI'S  First  Book  of  Apple 

Edited 

228  pages 

A  collection  of  35  exciting  games,  educational  programs, 

tiome  applications,  and  grapliics  routines  for  owners  of  Ap- 

pie  ii,  i!e,  and  iic  computers, 

$12.95,  iSBN  0-942386h59-8 

COMPUTEI'S  Second  Book  of  Apple 

Edited 

271  pages 

Over  30  arcade-styie  games,  appiications,  educational  and 

logic  games,  graphics  generotors,  and  programming  utilities 

for  the  Apple  II +,  lie,  and  lie.  A  disk  Is  also  available  for 

$12.95  which  Includes  programs  in  the  book,  0084BDSK. 

$12.95,  ISBN  0-87455-008-4 


'HIRD  BOOK  OF 


piD^CTTirTWTg  uWicH  tor  ttie  Apple  I,  I+.  ie.  sxKi 

oCoda  i/anBs,  comprehers^  trtntx^  loota, 
and  mem 


COMPUTil's  Third  Book  of  Apple 

Edited 

The  best  Apple  applications,  games,  tutorials,  and  utilities 
from  COMPUTE!  magazine  and  COMPUTEI'S  Apple  Applica- 
tions Special  have  been  brought  together  for  the  third  vol- 
ume in  this  bestseiiing  series.  Understandable  tutorials  help 
you  get  the  most  out  of  your  Apple  II,  II +,  lie,  or  lie  personal 
computer.  Reody-to-type-ln  games — from  vivid,  exciting  ar- 
cade games  such  as  "High  Rise"  to  thought-provoking  strat- 
egy games  Dice  "Switchbox" — mal<e  the  Apple  an 
entertainment  delight.  Practical  applications,  like  "Apple 
SpeedCalc,"  an  impressive  spreadsheet  program,  and  "Your 
Personal  Ledger,"  a  complete  financial  tool,  put  the  power 
in  your  Apple,  Also  Included  ore  utilities  that  will  make 
programming  easier  and  faster.  All  programs  have  been 
thoroughly  tested  and  are  ready  to  type  in.  Error-checking 
utilities  Insure  that  each  program  Is  typed  in  correctly  ttie  firet 
time,  A  disk  Is  available  for  $12.95  which  Includes  all  the  pro- 
grams In  the  book.  637BDSK. 
S  14.95,  ISBN  0-87455-063-7 


Your  whole  family  will  enjoy  and  use  the  business,  educational,  and  recreational  programs  and  tutorials 
In  our  three  books  of  Apple. 

Order  one,  two,  or  all  three  books  today. 

Call  toll-free  800-346-6767  (In  NY  212-887-8525).  or  write  COMPUTEI  Books,  P.O.  Box  5038.  F.D.R.  Station, 
New  York.  NY  10150. 

All  orders  must  be  prepaid  in  U.S.  funds.  NC  residents  add  4,5  percent  sales  tax,  NY  residents  add  8,25  percent  sales  tox. 
Please  include  S2.00  shipping  per  book  for  U,S,  and  surface  mail;  $5.00  airmail. 

Please  allow  4-6  weeks  for  delivery. 


COMPUTE!"  PublicationsJncS 


Port  of  ABC  ConsurT\ot  Magaiinres.  Inc. 
One  of  the  ABC  Putjlishirig  Compon^s 
625  7tn  Avenue.  6tn  Floor.  New  York.  NY  1CW19 

fJEMtvn  or  COMPLTTII  COVPint*'!  SoiBttB.  CCMPUTEii  Gawtte  Di*,  CO»*UTti  Ekx**,  QftO  COhlPUrEi  i  APP*  ApplttOhOflS 


COMPUTE!  books  are  available  in  the  U.K.,  Europe,  the  Middle 
East,  and  Africa  from  Holt  Saunders,  Ltd,,  1  St.  Anne's  Road, 
Eastbourne,  East  Sussex  BN21  SUN,  England,  and  in  Canoda 
from  McGraw-Hill,  Ryerson  Ltd.,  330  Progress  Ave.,  Scar- 
borough, Ontario,  Canada  Ml  P  2Z5. 


PS    570    POKE53264,-(TX>255) jPOK 
E53249,Y*8+120iPOKE5326 
9,1 tRETURN 
BM   580    POKE54273,FiPOKE54276,l 

6  SPOKE54276 , 17 :RETURN 
XQ    590    POKE54273,10iPOKE54276, 
64iP0KE54276,65!F0RZZ»l 
5T01 STEP- . 3  I POKE54275 , Z 
ZiNEXT 
HP    600    RETURN 
PG    610    CH=XiCV-YiLO«0tHC!«0tFOR 

X=-1T01 iTH-CH+X 
JK    620    TV=CV-1-(X-1) IGOSUB780 
JG    630    TV=CV-(X>-1) !GOSUB7a0 
BK    640    NEXT 
PH   650    IFP=1ANDCH-10RP-2ANDCV» 

ITHENLOl 
EK    660    IFP=1ANDCH=110RP=-2AKDCV 

=-llTHENRC=2 
QJ    670    CX:=LC+RC:IFCC=3THENBDtC 

H , CV )=UN+1 :GOTO850 
JA   680    IFCC-0THEH7 70 
BS    690    SP=0iSH(0)=CHjSV(0)-CV 
AM   700    IFSP=-1THEN770 
RC    710    DH=«SH(SP)  iDV-SV(SP)  iSP" 

SP-1 
C3I    720    HD(DH,DV)  =  UN+CC 
EP    730    P0RX--1T01 iTH=DH+X 
FJ    740    TV=DV-1-(X=-1)  IGOSUB820 
JH    750    TV-DV-(X>-1) 1GOSUB820 
MC    760    NEXTtGOTO700 
ED    770    X=CHiY-CVtUN»5-UN8RETUR 

t) 
DD    780    IPTH<10RTH>110RTV<10RTV 

^IITHENRETURN 
DP    790    IFBD(TH,TV)"UN+lTHENLO 

1 
PS    800    IPBD(TH,TV)=UN+2THENRC= 

2 
SK    810    RETURN 
SA   820    IFTH<lORTH>llORTV<10RTV 

>11THENRETURN 
FP    830    IFBD(TH,TV)=UNTHENSP=SP 

+1 :  SH(  SP  )=THi  SV(  SP  )=TV 
CM    840    RETURN 
PM  850    POKE53248,33:POKE53264, 

l:POKE53249,195 
PS    860    P3RZZ=1TO20:POKE646,ZZ: 

B$  =  "    YCX;    WIN     ■:G0SUB117 

0:NEXT:GOSUB1160 
CQ    870    F0RCOlT02iFE=liLE=liEH 

( 1 ) =CH : EV ( 1 ) =CV : EF=0 :L= 

1 
HA   880    CI)=CH:IFP=2THENCD=CV 
KF    890    IFCC=1ANDCD=10RCC:=2ANDC 

D=11THENHH (CC )=0 :G0T099 

0 
HB    900    NE=LE:E=FE 
RA    910    DH=EH(E)!DV=EV(E) 
JQ    920    FORX=-1T01:TH=DH+X:TV=D 

V-1-(X=1) :GOSUB1090!TV= 

DV-(X>-1) :GOSUB1090:NEX 

T 
CM    930    IFEF-1THEH990 
XS    940    IP(E=LE)THEN970 
EK    950    E=E+l!lFE-61THErtE=l 
XA    960    GOTO910 
CM    970    FE=LE+1;LE=NE:IFFE=61TH 

ENPE=1 
EC    980    L=L+1:GOTO900 
AE    990    NEXTiF0RCC=lT02 jDH=HH(C 

C  )  :  DV=W  ( CC)  I  L=TA  ( DH  ,  DV 

,CC) : IFDH=0THEN1040 
BF    1000    POKE781,DV+9:POKE782,D 
H*  2-DV+13 : POKE783 ,0 : SY 
S65520  :PRINT  "  (OFF  j  f6|* 
":GOSUB590 
ED    1010    IFL=1THEN1040 
QQ    1020    F0RX=-lTOl!TH=DH+X:TV= 
DV-1-(X=1) :GOSUB1060iT 
V=DV-(X>-1) :GOSUB1060: 
NEXT 
KM   103  0    L=L-l!DH=AHiDV=AV!GOTO 

1000 
EA   1040    NEXT:POKE781,CV+9:POKE 
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782 , CH*2-CV+1 3  J  POKE783 

,0:SYS655  20:PRIIST"g6l* 

■!GOSUB590 
HH    1050   GOTO1190 
AC    1060    IPrH<10RTH>110RTV<10RT 

V>11THENRETURN 
HF    1070    IFrA(TH,TV,CC)=L-lTHEN 

AH=THiAV=TV 
XF    1080    RETURN 
KB    1090    IPrH<lORTH>110RTV<10RT 

V>11THENRETUHN 
QJ    1100    IFBD(TH,TV) OUN+CCORTA 

(  TH  , TV ,  CC)  <  >0THENRETUR 

N 
FB    1110    TA(TH,TV,CC)=LiNE=NE+l 

! IFNE=61THENNE=1 
FF    1120    EH(NE)=TH:EV(NE)=TV 
SD    1130    CD=THiIFP-2THENCD-TV 
DP    1140    IFCC=1ANDCD=10RCC=2AND 

CD=11THE1IEF=1  :HH  (CC  )=T 

HsW(CC)=TV 
SK    1150    RETURN 
KH    1160    POKE646,7*(P-l) 
FR    1170    POKE214, 23s PRINT !A$=LE 

Pr?(SP5, (16-L1N(PN?(P) 

)/2))+B$+PN5(P) 
JA    1180    PRINT"     "AS;LEFT${SP$,4 

0-LEN ( A? ) ) ; I  RETURN 
CQ    1190    POKE214,2  3 tPRINTiPRINT 

■tWHT)(l3    SPACES] {RVS} 

PRESS    FIRE BUTTON I  OFF} 
[10    SPACES)",- 
PE    1200    WAITS6321,16,16»POKE21 

4,23:PRINTjPRINTSPC(12 
)"{OFFj{20    SPACES]"; 
AR   1210    P0RA=lTOll!FORB=lTOll« 

F0RC'-1T02  iTA  (A,  B,  C  )=0  : 

BD{A,B  j-e 
XA    1220    NEXTC,B,AsPOKE53269,0: 

G0T012a 

Program  3:  Atari  Beehive 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 

Fof  instmclions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  In  this  Issue  of  computei. 

SJ  10  POKE  106,9iiBOSUB  2000 

:QOTO  80 
L8  20  FL-0S0O3UB  560 
NK  30  jy«15-3TICKC0)+12B«(3T 
RIQ<0)=0>iIF  JVM27  TH 
EN  RETURN 
JC  40  IF  JV-e  THEN  30 
IIP50  POKE  77,0tTX-XiTY-Y!TX 

-TX  +  X  (JV)  :TY"=TY+YtJV) 
DB  60  IF  TX<1  OR  TX>H  DR  TY 

<1  OR  TY>11  THEN  30 
IJ  70  X-TXs  y-TY:FL-0:SOSUB  5 

60:GOTD  30 
FE  80  G03UB  530:GOSUB  l?0tPR 

INT  "tCLEAR>" 
1)C90  DIM  T»<30)  ,TM*  (30)  .NAM 
E» (40) , LEN8TH(2) sFQR  ft 
-1  TO  401NAME* (A, A)-" 
"iNEXT  AiPDSITIDN  17,1 
WlPRINT  "BEEHIVE" 
HI  100  FDR  A-1  TO  2!PRINT  " 
12     DDWN>ENTER  YOUR  NA 
ME  PLAYER  "; A;  "  " ;  :  IN 
PUT  T* 
EC  101  IF  T*-""  THEN  T«-"   " 
DB10S  IF  LEN(T»)>15  THEN  T» 

-T«(l, 15) 
MA  106  LENaTH(A)-LENtT») 
EC  110  NAME»(  (A-1  )  tl5+l,  (A-1 
) «15+LEN(T«) ) -T«! NEXT 
A:DY-1 
DL  120  SOSUB  4001  X'l  I  P-1  c  UN- 
is  Y-1 
EB  140  T»-"YOUR  TURN  "  :  BDSUB 
4000:PDKE  712,150-?B 
«(P«=2) 


M  143  eOSUB  201  LOCATE  Xt2-Y 
+14, Y+5,SPtP0BITI0N  X 
•2-Y+14, Y+5iPRINT  CHR 
«(SP) 

10  150  IF  SP032  THEN  SOUND 
1, 100, 12, ISlFOR  TD-1 
TO  501  NEXT  TDl SOUND  1 
,0,0,0|BOTO  140 

ML  160  BD(X,  Y) -UNsPOSITION  X 
«2-Y+14, Y+5iPRINT  CHR 
*(42+P) iQOSUB  590 

CP  162  BOSUB  610IP-3-PJ  eOTO 
140 

EC  170  FOR  A-0  TO  l«23tP0KE 
24576+A, PEEK (57344+A) 

jnext  a 

m 17S  FDR  A-25600  TO  25656: 

POKE  A,0iNEXT  A 
CP  180  FOR  1-24600  TO  24703: 

READ  J s POKE  I,JiNEXT 

I 
II210  FDR  A-0  TO  10IREAD  X, 

Yi X (A)-Xl Y(A) -YtNEXT 

A 
KP  228  POKE  54279,  64l  POKE  53 

277,3lP0KE  559,62iP0K 

E  623,1:PDKE  704,0:RE 

TURN 

DATA  231,126,24,24,24 

, 24, 126,231 

DATA  0,0,0,0,0,0,126, 

231 

DATA  231,126,0,0,0,0, 

0,0 

DATA  7,30,24,24,24,24 

,126,231 

DATA  7,30,24,24,24,24 

,30,7 

DATA  224,120,24,24,24 

,24, 120,224 

DATA  231,126,24,24,24 

,24, 120,224 

DATA  195,36,126,219,2 

SS, 126,36,24 

DATA  0,40,170,170,170 

, 170, 40,0 

DATA  0,20,eS, BS, B5,BS 

,20,0 

DATA  2,2,8,8,32,32,12 

B,  128 

DATA  85,0,0,0,0,0,0,0 

DATA  0,0,0,0,0,0,0,85 

DATA  0,0, 0,-1,0,1,0,0 

,-1,0, 0,0, 0,0, 0,0,  1,0 

,0,0,0, 0 
ICE  400  BOSUB  2000:POKE  756,9 

61PDKE  752,  1  I DL-PEEK( 

560)  -)-256*PEEK  (561  )  :  PO 

KE  DL+6,7iP0KE  DL+3,7 

1 
110405  POSITION  a,0lPRINT  "* 
BEEHIVE  *";Pa3ITI0N 

15, 4i PRINT  "///////// 

FF4  10  PRINT  SPC»<1,  12)  ;  "-"; 
iFOR  A-1  TO  lliPRINT 
"»  ";:NEXT  A j PRINT  " 

DB420  FOR  A-1  TO  1 1 
IHI430  PRINT  SPC*<1,  12-A)  i  "- 
&  "I iFDR  B-1  TO  10IPR 
INT  '#  "iiMEXT  BiPRIN 
T  ")-"iNEXT  A 

1 
:NEX 


W  230 

II  240 

D€2S0 

EX  260 

Lt270 

KB  2S0 

M.  290 

CC  300 

et  301 

LL302 

LI  303 

K304 

tl  305 

ni  310 

C!  440  PRINT  "-    "5  :  FOR 
TO  11: PRINT  "X  "; 
T  A:PRINT  "{LEFT>-- 

0^450  PRINT  " 

":POSITION 

4,  I61PRINT  1 POSITI 

ON  36,6tPRINT  "  ( " : RET 

URN 

DIM  TA(11,35) , EHC6i) , 

EV<61) ,BD<11 , 11) , SH(5 

0) ,SV(50) ,SP« (20) ,X (1 


IH530 


0)  , Y(10)  ,SPC«  <20)  , HH( 

ISJ , VV<13) 
BC  535  POKE  752,  1  s  POSITION  1 

4,10iPRINT  "PLEASE  WA 

IT" 
PH54«  BQSUB  30001  FOR  A-1  TO 
201 8P« (A, A)-"-" t  SPC« 
CA,A)-»  "jNEXT  A:RETU 

RN 
EH360  LB-PEEK  (8B)  :HB-PEEK(B 

9)lP0KE  732, li POKE  89 

,100tPOKE  S8,  OYtB'4-99i 

POSITION  0,0:PRINT  " 

{B    SPACEa>":lF     FL     THE 

N    375 
ID  570    POKE    5324B,  )t»B+ (11-Y) 

*4+61:P0KE    88,Y«e+99: 

POSITION  0,0iPRINT  "E 

{B>[iE:,  Sitt  " 
111  375  POKE  BB.LBiPDKE  B9,HB 

sOY-Yi RETURN 
Of  390  FOR  T-13  TO  0     STEP  -0 

.4:S0UND  1,100, 10, TiN 

EXT    T: RETURN 
JL610     CH-Xi  CV»YlLC-0!RC-a!F 

OR    X--1     TO     liTH-CH+X 
BB  &20    TV-CV-1+(X-1)  rSOSUB    7 

80 
DC  630     TV-CV+(X>-1)  iBDSUB     78 

0 
DB&40    NEXT    X 
BKiSB     IF    P-1     AND     CH-1     OR     P- 

2    AND    CV-1     THEN    LC-1 
IE  660     IF    P-1     AND    CH-11     OR    P 

-2    AND    CV-li     THEN    RC« 

2 
BS  670  CC-LC  +  RCiIF  CC-3  THEN 
BD(CH,CV>-UN+1:80T0 

830 
OK  6B0  IF  CC-0  THEN  770 
4H  690  SP-0:  5H(0)-CH:SV<0)-[: 


DB  700  IF  SP--1  THEN  770 
LJ710  DH-SH(SP)  1  DV-SV  (SP)  :  S 

P-SP-1 
FD  720  BD<DH,DV)-UN  +  CC 
BK  730  FOR  X--1  TO  1  S  TH-DH  +  X 
BA  740  TV-DV-1+(X-1)  iGOSUB  8 

20 
OB  750  TV-DV+<X>-1)  sSOSUB  82 

0 
DO  760  NEXT  XlBOTO  700 
M770  X-CHi Y-CViUN-5-UNiRET 

URN 
NB7B0  IF  TH<1  OR  TH>11  OR  T 

V<1  OR  TV>11  THEN  RET 

URN 
011790  IF  BD(TH,TV>'iUN-«-l  THE 

N  LC-1 
0*800  IF  BD  (TH,TV)>UN-»-2  THE 

N  RCi-2 
HJB10  RETURN 
BB  820  IF  TH<1  OR  TH>11  OR  T 

V< I  OR  TV>11  THEN  RET 

URN 
KB  B30  IF  BD(TH,TV)"UN  THEN 

SP"SP+llSH tSP>-THl9V( 

SP)-TV 
HA  B40  RETURN 
BA8S0  FL-liaOSUB  560jT«""YO 

U  MIN  ":BOSUB  4000iFO 

R  A-253  TO  0  STEP  -li 

POKE  712,AiNEXT  A 
«t860  POSITION  0,20iPRINT  " 

{15  SPACES>SEARCHING 

<:i3  SPACES}" 
BP870  FOR  CC-1  TO  2:FE-l!LE 

-llEH(l}-CHiEV( 1 ) -CV: 

EF-0IL-1 
AD  880  CD-CHjIF  P-2  THEN  CD- 

CV 
JD  890  IF  CC-1  AMD  CD-I  OR  C 

C-2  AND  CD- 11  THEN  HH 

CCC}-0iBDTO  990 


EB  900    NE-LE:E-FE 

III  910    DH-EH<E)  iDV-EVCE) 

1K920    FOR     X  — 1     TO     1 1 TH-DH+X 

ITV-DV-1+ (X-1 ) :0aSUB 

1090iTV-DV+(X>-i) SHOS 

LJB  i090:NEXT  X 
PF  930  IF  EF-1  THEN  990 
FP  940  IF  (E-LE)  THEN  970 
FF  930  E-E+liIF  E-61  THEN  E- 

1 
HC  960  eOTO  910 

BA  970  FE-LE+liLE-NEs  IF  FE=6 

1  THEN  FE-1 
HO  980  L-L+liQOTO  900 
ftO  990  NEXT  CC:FOR  CC-1  TO  2 
iDH-HH(CC) I DV-VVCCC)  : 
L-TA(DH, DV»3+CC)  I  IF  D 
H-0  THEN  1040 
CI  1000  POSITION  DH*2-DV+14, 

DV+5I PRINT  "«":BOSUB 
590 
PP1010  IF  L-1  THEN  1040 
0111020  FOR  X--1  TO  1STH-DH  + 

XiTV-DV-l+(X-l) iBOSU 

B  1060: TV-DV+(X>-1) ! 

BOSUB  1060: NEXT  X 
FP  1030  L-L-1  :  DH-AH:  DV-AViBO 

TO  1000 
CI  1040  NEXT  CCiPOSITION  CH» 

2-CV+14,CV+5: PRINT  " 

t" I BOSUB  390 
NH  1050  SOTO  1160 
00  1060  IF  TH<1  OR  TH>11  OR 

TV<1  OR  TV>H  THEN  R 

ETURN 
DK  1070  IF  TA(TH,TV*3+CC)-L- 

1  THEN  AH-THiAV-TV 
U  10B0  RETURN 
PB  1090  IF  TH<1  OR  TH>11  OR 

TV<1  OR  TV>11  THEN  R 

ETURN 
CI  1100  IF  BD(TH,TV)<>UN  +  CC 

OR  TA(TH,TV*3+CC)<>0 
THEN  RETURN 
KL1110  TA(TH,TV»3  +  CC)-LlNE- 

NE+1( IF  Ne-61  THEN  N 

E-1 
(0  1120  EH(NE) -TH:EV(NE)-TV 
EC  1130  CD-TH:  IF  P-2  THEN  CD 

"TV 
09  1140  IF  CC-1  AND  CD-I  OR 

CC-2  AND  CD-11  THEN 

EF-1 :HH(CC)-THt VV(CC 

)-TV 
KK  11S0  RETURN 
JF1160  POSITION  0,20:PRINT 

"tl2  SPACES>PRES8  FIR 

EBUTTONfB  SPACES> " 
M1116S  IF  STRIB(0><>0  THEN 

1165 
1(1170  POSITION  0,20«PRINT 

"{36  SPACES} "I BOSUB  3 

000:BOTa  120 
6E2000  BRAPHICS  0iPOKE  710, 

13:P0KE  709,0iPOKE  7 

0B,45tPOKE  54279,961 

POKE  559,62: POKE  704 

, i02:RETURN 
DI  3000  FOR  A-1  TO  1 1  s  FOR  B- 

1  TO  35: TA{A,B)-0:NE 

XT    BiNEXT    AiFOR    A-1 

TO     11:F0R    B-1     TO     11; 

BD(A,B)-0tNEXT    B:NEX 

T    A 
(E3010    RETURN 
PL  4000    TM»-T»»TM«  (LEN(T»)+l 

,LEN(T«)-«-LENaTH<P>  )- 

NAME*( <P-1 ) »15+1, (P- 

1) tlS+LENQTHCP) ) 
W 4003  POSITION  2,20lPRINT 

"{33  SPACES> " 
Fl4fll0  POSITION  19-LENCTM«> 

/2,20!PRINT  TM»iRETU 

RN 


«-     BEEHIVE    "«; 


J  XX  X  I  x»x  X  X  : 

JC»I;J»I  XmltX  X  XX 

jc»iii;i»i»i  >x»xxi-xr. 

X»X>X   X  iXXXXXX-:>X  , 
X»X  I   I  X  I  I  X  I  XaX'J 

cix»xx,xjx__x.x»xxjt.i7 

"Beehive"  for  Atari  400,  800,  XL,  and 
XE  computers. 
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mm 
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Apple  U  version  of  "Beehive." 

Program  4:  Apple  II  Beehive 

Version  by  Tim  Victor,  Editorial 
Programmer 

For  Instructions  on  entering  this  listing,  pleas© 
refer  to  ■"COMPUTEI's  Guide  to  Typing  in 
Programs"  in  this  issue  of  computei. 

ID  100  LOMEM:  16384:  DIM  BD(11,1 

l),SH(50>,SV(50),TA(ll,il 

,2),EH(61),EV(61> 
4F  H0  FOR  A  =  768  TO  A  +  88:  RE 

AD  D:  POKE  A,D:  NEXT  :  RE 

AD  D:  IF  D  <  >  -  1  THEN  1 

070 
fli  120  FOR  A  =  35328  TO  A  +  7:  P 

OKE  A,0:  NEXT 
38  130  FOR  A  =  35840  TO  A  +  79: 

READ  Ds  POKE  A,Dt  NEXT  : 

READ  D:  IF  D  <  >  -  1  THEN 
1070 
44  140  TEXT  :  HOME  :  FOR  I  =  1  T 

O  2 
3D  130  PRINT  "PLAYER  "I"*S  NAME: 

"jj  INPUT  ;A»:NN*(I)  - 

LEFT*  (A»,24):  NEXT 
fl7  160  POKE  6,0:  POKE  7, 13Bi  IF 

PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  54,0:  POKE  53,3: 
CALL  1002:  BOTO  180 
J4  170  PRINT  CHR»  (4)  J  "PR#A»300" 
St  180  GOSUB  8S0 
Ft  190  P  =  i:UN  -  1:NH  =  6:NV  = 

6:CH  =  6s CV  "  6s  BOSUB  93 

0 
711  200    HTAB    1:    VTAB   21:    CALL   -  8 

68:     F>RINT    NN«(P)"'"jl3   » 

ASC  (  RIGHT*  (NN*(P),1)>: 
IF  8  -  32  *  (3  >  96)  <  > 
83  THEN  PRINT  "S" ; 
C?  210  PRINT  "  TURN":  VTAB  20:  H 

TAB  1:  PRINT  CHR*  (96  +  P 

) 
11   220  IF  PEEK  (49249)  >  127  THE 

N  290 
113  230  IF  PDL  (0)  <  90  THEN  NH  = 
NH  -  1:  IF  NH  <  1  THEN  N 

H  -  1 
23  240  IF  PDL  (0)  >  165  THEN  NH 

=  NH  +  l!  IF  NH  >  11  THEN 
NH  -  11 
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21  2S»  IF  PDL  (1)  <  90   THEN  NV  - 
NV  -  1:  IF  NV  <  1  THEN  N 

V  -  1 

H   260  IF  PDL  (1)  >  165  THEN  NV 
-NV-f-l:  IFNV>11  THEN 

NV  -  11 
EC  270  IF  CH  <  >  NH  OR  CV  <  >  NV 

THEN  aOSUB  960!  CH  ••  NHiC 

V  -  NVl  309UB  930 
IE  280  QOTO  220 

f£  290  IF  BD(CH,CV)  <  >  0  THEN  P 

RINT  CHR»  C7) | «  QOTO  230 
CB  300  BDtCH.CV)  »  UN 
17  310  S03UB  960:  60SUB  930 
SD  320  IF  PEEK  {49249)  >  127  THE 

N  320 
W   330  LC  =  01 RC  «=  0:  FOR  X  =  - 

1  TO  liTH  -  CH  +  X 
E7  340  TV  -  CV  -  1  +  (X  -  1):  00 

SUB  300 

16  330  TV  =  CV+(X>-1)!  B03U 

B  S00 

17  360  NEXT 

!!  370  IF  P  -  1  AND  CH  -  1  DR  P 

-  2  AND  CV  -  1  THEN  LC  - 
1 

K   380  IF  P  =  1  AND  CH  =  1 1  OR  P 

-  2  AND  CV  -  11  THEN  RC 

-  2 

7E  390  CC  =  LC  +  RCs  IF  CC  =  3  T 

HEN  570 
CI  400  IF  CC  =  0  THEN  490 
ie  410  SP  =  0:SH(0)  -  CH:SV(0>  - 

CV 
a   420  IF  SP  =  -  1  THEN  490 
21  430  DH  =  SH(3P):DV  =  SV<SP):S 

P  -  gp  -  1 

3a  440  BD(DH,DV>  -  UN  +  CC 

C!  430  FOR  X  =  -  1  TO  IsTH  ••  DH 

+  X 
ZF  460  TV  «  DV  -  1  +  ( X  -  1 )  :  SO 

SUB  940 
K   470  TV  =  DV  +  (X  >  -  1):  BOSU 

B  S40 
71  4B0  NEXT  !  QOTO  420 
ID  490  P  =  3-P:UN-5-  UNs  SO 

TO  200 
FE  500  IF  TH  <  1  OR  TH  >  11  OR  T 

V  <  1  OR  TV  >  11  THEN  RET 
URN 

2«  510  IF  BD(TH,TV)  -  UN  +  1  THE 

N  LC  -  1 
37  520  IF  BD(TH,TV)  =  UN  +  2  THE 

N  RC  -  2 
IB  530  RETURN 
17  540  IF  TH  <  1  OR  TH  >  11  OR  T 

V  <  1  OR  TV  >  11  THEN  RET 
URN 

D!  530  IF  BD(TH,TV)  =  UN  THEN  SP 

-  9P  +  liBH(8P)  -  THiaV( 
3P)  -  TV 

21  560  RETURN 

31  570  BOSUB  960:  VTAB  21:  HTAB 
1:  CALL  -  B68:  PRINT  NN»( 
P)"  WINS!"!  PRINT  "CHECKI 
NO  BOARD" 

IE  580  FOR  CC  =  1  TO  2!FE  =  1:LE 

-  1:EH(1>  -  CH:EV(1)  -  C 
V;EF  -  0sL  -  1 

CI  590  CD  =  CH:  IF  P  =  2  THEN  CD 

=  CV 
Ct  600  IF  CC  =  1  AND  CD  =  1  OR  C 
C  =  2  AND  CD  »  11  THEN  HH 
(CC)  =  0!  SOTO  700 
4D  610  NE  =  LEsE  =  FE 
15  620  DH  =  EH(E>:DV  =  EV(E) 
1?  630  FDR  X  =  -  1  TO  1:TH  =  DH 
+  X:TV  =  DV  -  1  +  (X  =  1) 
s  SOSUB  7B0:TV  »  DV  +  IK 
>  -  1):  BOSUB  7S0:  NEXT 
Ft  640  IF  EF  ■=  1  THEN  700 
11   650  IF  (E  =  LE)  THEN  6B0 
5E  660  E  =  E  +  1:  IF  E  =  61  THEN 
E  -  1 

22  670  eOTO  620 
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Ft  6S0   FE  =    LE   +    llLE   -    NE:     IF    F 

E   -    61    THEN   FE   -    1 
H  690   L   ■=   L   +    Is    aOTO    610 
n  700   NEXT    !    FOR   CC   =    1    TO   2!DH 

-  HH(CC)!DV   "   VV(CC)iL   - 
TA(DH,DV,CC) I     IF   DH    -   0 

THEN   740 

Bl  710  HTAB  DH  »  2  -  DV  +  14:  VT 
AB  DV  +  5s  PRINT  CHR*  (10 
5) j :  IF  L  -  1  THEN  740 

C9  720  FOR  X  "  -  1  TO  1:TH  -  DH 
+  XiTV  =  DV  -  1  +  <X  -  1> 
I  BOSUB  730! TV  -  DV  +  (X 
>  -  1):  SOSUB  7S0i  NEXT 

JC  730  L  =  L  -  1:DH  -  AH:DV  =  AV 
1  SOTO  710 

IC  740  NEXT  :  HTAB  CH  «  2  -  CV  + 
14!  VTAB  CV  +  5!  PRINT  C 
HR*  (103) ;i  SOSUB  10101  Q 
OTO  180 

IB  7S0  IF  TH  <  1  OR  TH  >  11  OR  T 

V  <  1  OR  TV  >  11  THEN  RET 
URN 

CD  760  IF  TACTH.TV.CC)  -  L  -  1  T 

HEN  AH  -  THiAV  -  TV 
2J  770  RETURN 
U  7B0  IF  TH  <  1  OR  TH  >  11  OR  T 

V  <  1  OR  TV  >  11  THEN  RET 
URN 

tF  790  IF  BD(TH,TV)  <  >  UN  +  CC 
OR  TA(TH,TV,CC)  <  >  0  THE 
N  RETURN 

76  800  TACTH,TV,CC)  -  L:NE  «  NE 
+1:  IF  NE  «  61  THEN  NE  - 
1 

B?  810  EH(NE)  =  TH:EV(NE)  =  TV 

ID  820  CD  •=  TH:  IF  P  -  2  THEN  CD 

-  TV 

II  830  IF  CC  ~  1  AND  CD  -  1  DR  C 
C  =  2  AND  CD  -  11  THEN  EF 

-  liHHCCC)  -  THiW(CC)  - 
TV 

21  840  RETURN 

F?  B50  HQR  :  HOHE  :  FDR  I  -  6  TO 
16:  VTAB  I:  HTAB  20-1 

n  B60  FOR  J  =  1  TO  11:  PRINT  CH 
R«  (96) I  CHR*  (32) | ■  NEXT 
I  PRINT  CHR*  (96) J 

it  870  FOR  J  -  0  TO  l!  HTAB  IS  - 
I  +  Ji  PRINT  CHR«  (99  + 
J  +  2t(I<>2t  INT  (I 
/  2)>>;!  HTAB  43  -  I  +  J 
1  PRINT  CHR*  (99  +  J  +  2 
t  <I  -  2  «  INT  (I  /  2>>); 
!  NEXT 

M  880  NEXT  !  HCOLOR-  4:  FOR  I  =- 
0  TO  4:  HPLOT  92  +  1,38 
TO  14  +  1,127:  HPLOT  233 
+  1,38  TO  177  +  I,127i  NE 
XT 

VTAB  Ss  HTAB  13>  PRINT  CH 
R«  (1017) 

FOR  J  =  1  TO  12:  PRINT  CH 
R«  (103);  CHR*  (104);:  NE 
XT  I  PRINT  CHR*  (99); 
VTAB  17t  HTAB  2l  PRINT  CH 
R«  (102); 

FOR  J  =  1  TO  12:  PRINT  CH 
R*  (104);  CHR*  (103);)  NE 
XT  s  PRINT  CHR*  (100) ;:  R 
ETURN 

*8  930  HCOLOR-  7 

F4  940  6V  =  CV  t  8  +  32:  QH  =  92 
+  7  «  (CH  «  2  -  CV) 

8F  950  HPLOT  BH,  QV  TO  SH  +  4,BV 
TO  SH  +  7,QV  +  4  TO  QH  + 
4,BV  +  7  TO  SH,BV  +  7  TO 
8H  -  3,GV  +  3  TO  8H,BV!  R 
ETURN 

!D  960  HCOLOR=  4:  BOSUB  940 

!«  970  VTAB  CV  +  3:  HTAB  14  +  CH 
*  2  -  CV:A*  -  CHR*  (32) 

F2  980  IF  BD(CH,CV)  >  3  THEN  A* 
-  CHR*  (97  +  (CV  <  >  2  « 
INT  (CV  /  2) ) ) :  SOTO  1000 


IB 

890 

Ei 

900 

22 

910 

IE 

920 

>  127  TH 


<  128  TH 


1  TO  Hi  F 
:BD(I,J)  • 
0:TA(I,J, 
NEXT 


E2  990  IF  BD(CH,CV)  >  0  THEN  A* 
=  CHR*  (98  -  (CV  <  >  2  * 
INT  (CV  /  2) )  > 
FD  1000  PRINT  A*; !  RETURN 
B5  1010  VTAB  22:  HTAB  1:  PRINT  " 
PRESS  KEY  TO  QUIT,  BUTTD 
N  TO  PLAY  ABAIN" 
ED  1020  IF  PEEK  (49249) 

EN  1030 
B2  1030  IF  PEEK  (49152) 

EN  1020 
!F  1040  POKE  49168,0:  NORMAL 

ND 
Eft  1050  HGR  !  FOR  I 

OR  J  -  1  TO  11; 
0eTA<I,J,1} 

2)  -  01  NEXT 
E!  1060  RETURN 
2F  1070  PRINT  "ERROR  IN  DATA  ST  A 

TEMENTS"!  END 
B2  1080  DATA  216,120,133,69,134, 

70,132,71,166,7,10 
FA  1090  DATA  10,176,4,16,62,48,4 

,16,1,232,232 
Fi  110«  DATA  10,134,27,24,101,6, 

133,26, 144,2,230 
«  1110  DATA  27,163,40,133,8,165 

,41,41,3,5,230 
Bft  1120  DATA  133,9,162,8,160,0,1 

77,26,36,50,48 
!i  1130  DATA  2,73,127,164,36,145 

,B, 230, 26, 208, 2 
C2  1140  DATA  230,27,165,9,24,105 

,4,133,9,202,208 
6?  1150  DATA  226,165,69,166,70,1 

64,71,88,76,240,233 
IS  1160  DATA  233 
2!  1170  DATA  -1 
CE  1180  DATA  193,182,156,136,156 

, 1S6, 182, 193, 128, 136, 170 
Ift  1190  DATA  170,170,170,136,128 

, 128, 148,213,213,213,213 
FC  1200  DATA  148,128,128,128,192 

,192, 192, 208, 208, 148, 138 
»   1210  DATA  138, 130, 130, 128, 128 

, 128, 128, 128, 128, 128, 128 
EA  1220  DATA  160^160,168,168,148 

, 133, 133, 129, 129, 129, 128 
BB  1230  DATA  128,  128,  128,  170,  170 

, 170, 170, 128, 12B, 128, 128 
C7  1240  DATA  213,213,213,213,128 

,  128, 193,  162, 156,  201 ,  ^1 
23  1250  DATA  190,  156, 136 
23  1260  DATA  -1 

Program  5:  IBM  PC/PC|r 
Beehive 

Version  by  Patrick  Parrish, 
Programming  Supervisor 
For  instructions  on  entering  this  listing,  pleas© 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  th[s  issue  of  corviPUTE!. 

m    10   KEY   OFF:DEF   SEe=0:POKE    104 
7, PEEK (1047)    OR   64lQ0T0   20 
Jl  20   BOSUB    350 
LC  30    BOSUB    650 
IIP  40   REM    START 
IL   50   RANDOMIZE    TIMER 
H!   60   WINNER=0:PREV.F>LAYER-0sROW 

-6 « COL-6 : CB- 1 46 1 RB-B9 
NC   70   PLAYER=INT(2«RND+1) 
08  80   LOCATE    12,  11:  PRINT    "Ple»a» 

Malt    a  moRiant" 
U  90    FOR    J=l    TO    lliFOR    K-1    TO    1 
l:HIVEX(a,K)-0iNEXT   K:NEXT 

J 
HS   100    FOR   J=l    TO   20:PATHLEN(J)- 

0:NEXT   J 
Aft    110   FOR    J-1    TO    65:PATHX(J)-0: 

USEDX (J) -0t  NODEX (J) -0] NEX 

T   J 
11   120    BOSUB   700: LOCATE    24,l!PRI 

NT   "Playar:"; 


NH 

160 

IM 

17B 

DN 

180 

OK 

190 

n 

200 

m 

210 

Keyboard  controls  are  used  in  the  IBM 
PC/PCjr  version  of  "Beehive." 


K   130  REM  MAIN 

PC  140  IF  PREV.PLAYER-PLftYER  THE 

N  170 
EP  150  LOCATE  24,  B:  PRINT  " 

"I (LOCATE  24,aiP 

RINT  PLAYER* (PLAYER) | I  IF 

PLAYER-1  THEN  PUT  (270,13 

0) , EYESl , PSET  ELSE  PUT  (2 

70,130),EYES2,PSET 

PREV. PLAYER-PLAYER 

PUT  (CB,RB),BEE 

DEF  3EQ-0:POKE  1050, PEEK ( 

1052) 

A«=RIBHT*(INKEY», 1): IF  LE 

N(A«)-0  THEN  190 

PUT  (CB, RB) , BEE: OCOL-COL: 

OROW-ROM 

IF  A«!»CHR«(77)  THEN  ROW-R 

0W+ 1 1 CaL-COL+ 1 1 1 F  ROW> 1 1 

DR  CDL>11  THEN  ROU-ORDWiC 

□L-DCOL  ELSE  RB-RB+lSiCB- 

CB+9 
CB  220  IF  A«"CHR*(75)  THEN  ROW=R 

OW-llCQL-CQL-liIF  R0M<1  D 

R  C0L<1  THEN  R0W-DROW;C0L 

-OCOL  ELSE  RB-RB-lSiCB-CB 

-9 
C«  230    IF   A*-CHR*(72)     THEN   RaW=R 

DW-1-(R0W-1):IF    ROWODROW 
THEN   CB-CB+9IRB-RB-15 
HI  240    IF   A«=CHR»(B0)     THEN   ROW=R 

OW+l+(ROW-ll)iIF    ROWOORD 

M   THENCB-CB-9iRB-RB+15 
UK  250    PUT    (CB,RB),BEE 
P«   260    IF   A»="     "    THEN    BQSUB    1050 

ELSE    180 
6B  270    IF  USED    THEN   PUT    <CB,RB), 

BEE:QOTD    140 
OG  280   aR0W-RDW:OCOL-C0L:6QSUB    1 

110 
Hfl  290    IF   PC3SS1BLE-1    THEN    BOSUB 

1290 
IH  300    IF   WINNER-1    THEN    1680 
PD  310   LOCATE   24, 1: PRINT    "Player 

•     f 
CC   320    IF    PLAYER=1    THEN    PLAYER=2 

ELSE   PLAYER=1 
BC   330    RaW=0RQW:C0L-0C0L:BOT0    14 

0 
LO   340    REM    I  NIT 

ftC  350    CLS!CaLR(l)»=2:C0LR(2)=3 
Eft   360    DIM    ROW.  INCX(6),C0L.  INCy.( 

6) 
DH   370    FOR   J=l    TO    6:  READ    ROW.  INC 

X(J),CaL.INC7.(J)iNEXT   J 
NK  380    DATA   -1,-1,0,1,1,1,1,0,0, 

-1,-1,-1 
6f  390  DIM  HIVEXdl.ll) 
ES  400  DIM  USEDX<65),NDDEX(65),P 

ATHX { 65 ) , PATHLEN ( 20 ) 
KK  410  SCREEN  1 : COLOR  1,2:DEFINT 

B 
in   420  DIM  HEXA(100)  ,BALL1  (100)  , 

BALL2( 100),  EYESl (100) ,EYE 

82(100) 
KH  430  LINE  (30,  10) -(21 ,  15)  ,  3:  LI 


NE-STEP  (0,10),3iLINE-3TE 

P  (9, 5), 3 
PB  440  LINE-STEP  (9, -5)  ,  3:  LINE-S 

TEP  (0,-10), 3; LINE-STEP  ( 

-9,-S),3 
(I  450  LINE  {30,11)-(22,16),2:LI 

NE-STEP  (0, 9), 2:LI NE-STEP 
(8, 4), 2 
JB  460  LINE-STEP  (7, -4)  ,  6:  LINE-S 

TEP  (0,-10), 6! LINE-STEP  ( 

-7, -4), 6 
FP  470  SET  (21,  10)-<39,30)  ,HE)(A 
HE  4B0  CLS:  CIRCLE  (30,  20)  ,  5,  COLR 

(1): PAINT  (30,20) ,C0LR(1) 

:BET  (25, 16) -(33, 24), BALL 

1 
IIB  490  BOSUB  580:  BET  (23,  12) -(37 

,2S), EYESl 
BJ  500  CLSs  CIRCLE  (30,20)  ,5,  COLR 

(2) I  PAINT  (30,20),CQLR(2) 

tSET  (25, 16) -(33, 24), BALL 

2 
BC  510  BOSUB  580:  (^T  (23, 12) -(37 

,25),EYE32lCLS 
Oft  520  READ  X, Y: E= (4+INT ( (X+7) /8 

)»Y)/'2:DIM  BEE(E>:BEE(0)- 

X:BEE{1)-Y:F0R  1-2  TO  EsR 

EAD  A» :  BEE  ( 1 )  -VAL  ( "«cH"  +A» 

):NEXT 
i\.   530  DATA  26, 8,e2a,A,SAA,a02A, 

95AA,B0AA 
HK  540  DATA  952A,  AA,  B002,  A0,  1500 

IIP  550  DATA  500,0,0 

KL  560  RETURN 

Bll  570  REM  PARTS 

(f  580  CIRCLE  (26,19),2,lsCIRCLE 

(34, 19), 2,1 
EF  590  PAINT  (26,  19)  ,  IsPAINT  (34 

,19),1 
IE  600  PSET  (29, 17):  LINE-STEP  (- 

2. 5, -5) I  LINE-STEP  (-2.3,3 

) 
OC  610  PSET  (31,17)  r  LINE-STEP  (2 

,5,-5) I  LINE-STEP  (2.5,3) 
U   620  CIRCLE  (30, 24), 1,1: PAINT 

(30,24),1 
"6  630  RETURN 
BE  640  REM  BETNAMES 
BB  650  LOCATE  12,  16:  PR  INT  "B»»Hi 

v»"iPUT  (B4,B4), EYESl; PUT 
(192,86) ,EYE32 
HC  660  FOR  1  =  1  TO  2:  LOCATE  19+1* 

2-1, 6i PRINT  "Pl«y«r"I"'m 

nani«"; 
III  670  INPUT  PLAYER*  ( I  >!  PLAYER*  ( 

I)-LEFT*(PLAYER*(I), 15) :N 

EXT  I 
IN  680  CLS:  RETURN 
!Z   690  REM  DRAMSCREEN 
LD  700  CLS:Y=7 
«F  710  FDR  R=l  TO  11 
a   720  X'=90-R«9 
EC  730  FOR  C=l  TO  11 
!0  740  X=X+18 
m   750  PUT  (X,Y),HEXA,OR 
KK  760  NEXT  C 
HC  770  Y=Y+15 
DK  780  NEXT  R 
6L  790  PSET  (297,12)  ,2:  eOSUB  930 

: LINE-STEP  (0,10), 2 
FH  800  PSET  (298, 12),2!Q0SUB  930 

: LINE-STEP  (0,10), 2 
BB  810  PSET  (299,  12),  2:  BOSUB  930 

I  LINE-STEP  (0,10), 2 
Hi   820  PSET  (96, 12),  2:  BOSUB  930: 

LINE-STEP  (0,10), 2 
NH  830  PSET  (97,12),2!Q0SUB  930: 

LINE-STEP  (0,10), 2 
OF  840  PSET  (98,  12),  2:  BOSUB  930: 

LINE-STEP  (0,10), 2 
CB  B50  Y1=-5:Y2=5:PSET  (99,  9),  3: 

BOSUB  990 
HL  860  PSET  (99,  10)  ,3:  BOSUB  990 
CK  870  PSET  (100,11)  ,3!eOSUB  990 


CO  880  Yl»5t  V2—SSPSET  (9, 173),  3 

iSOSUB  990 
*B  890  PSET  (9,174),3!aOSUB  990 
K   900  PSET  (9, 175), 3; BOSUB  990 
nf  910  RETURN 
80  920  REM  UPNDOWN 
HC  930  FOR  J  =  l  TO  10 
HC  940  LINE-STEP  (0,  10)  ,  COLR  ( 1 ) 
CO  950  LINE-STEP  (-9,5)  ,  COLR  ( 1 ) 
Of  960  NEXT  J 
KB  970  RETURN 
PO  980  REM  ACROSS 
6F  990  FOR  J-  1  TO  11 
a    1000  LINE-STEP  (9,  YD,  COLR  (2) 
LH  1010  LINE-STEP  (9,  Y2)  ,  CXILR  (2) 
G«  1020  NEXT  J 
IE  1030  RETURN 
P«  1040  REM  SET  PIECE 
NE  1050  USED=0 
LF  1060  IF  HIVEX(RaW,COL><>0  THE 

N  USED=l! RETURN 
LL  1070  HIVEX  (ROW,  COL) -PLAYER 
Fft  1080  PUT  (CB.RB) .BEEsIF  PLAYE 

R-1  THEN  PUT(CB+1,RB-1>, 

BALLl  ELSE  PUT(CB+1,RB-1 

} , BALL2 
je  1090  RETURN 
BJ  1100  REM  CHECKLINE 
BI  1110  PDSSIBLE-1 
CJ  1120  IF  PLAYER-1  THEN  1200 
EL  1130  FOR  ROW-1  TO  6sFF-0:FB-0 
III  1140  FOR  C0L=1  TO  11 
GJ  1150  IF  HIVEX  (ROW,  COL) -PLAYER 

THEN  FF-1 
K   1160  IF  HIVEX (12-R0W,CaL)=PLA 

YER  THEN    FB-1 
LE  1170  NEXT  COL 
HII  1180  IF  FF-0  DR  FB-0  THEN  POS 

SIBLE-0lRaU-6 
PE  1190  NEXT  ROM:  RETURN 
CK  1200  FOR  C0L=1  TO  6:FF=0!FB=0 
JP  1210  FDR  RDW-1  TO  11 
FC  1220  IF  HIVEX  (ROW,  COL) -PLAYER 

THEN  FF-1 
BP  1230  IF  HIVEX  (ROW,  12-CQL)-PLA 

YER  THEN  FB-1 
DB  1240  NEXT  ROW 
HD  12S0  IF  FF=0  OR  FB-0  THEN  POS 

SIBLE-0ICOL-6 
ID  1260  NEXT  DQL 
J£  1270  FJETURN 
E)  1280  REM  CHECKM INNER 
0*  1290  LOCATE  24,  1:PRINT  "Ctisck 

ing...  'i 

a   1300  USED.CNTR'0:MINNER-0:NOD 

E. CNTR-fl: NODE. TOTAL-0! CO 

UNTER-0 
LO   1310    IF    PLAYER-1    THEN    1440 
II    1320   FOR   C0L=1    TO    11:  ROW-1 
JF    1330    IF   HIVEX  (ROW,  COL)  OPLAYE 

R   THEN    1410 
NO  1340  NODEROM^ROW:  NODECOL-CDL: 

QOSUB    1S60 
GD   1330    IF   USED.FLAB-1    THEN    J410 
Efl    1360   NODE. TDTAL-1: PATH. TOTAL- 

1: COUNTER- 1 
01    1370    PATHX(1)=100INDDEROW+NOD 

ECOL 
NL    1380    BOSUB    1650 
FJ    1390    IF   WINNER-1    THEN   COL-1 1 
JP    1400    REM   SKIP2 
LI    1410    NEXT    COL 
IS    1420    RETURN 
EL    1430    REM   CHECK  1 
fl    1440   FOR   RDW=1    TO    11:CDL-1 
BB    1450    IF   HIVEX  (ROW, COL)  OPLAYE 

R   THEN    1530 
NO   1460   NDDEROW-ROW:NODECOL-COL: 

eOSUB    1560 
HO   1470    IF    USED.FLAB-1    THEN    1530 
FO   1480   NODE.  T0TAL=1:  PATH. TOTAL" 

1 1  COUNTER- 1 
DD   1490   PATHX(l}-100«NODEROW-)-NaD 

ECOL 
KH    1S00    GOSUB    16S0 
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COMMODORE  PLUS/4- 

COMPLETE 

COMPUTER  SYSTEM 


AT  BELOW  DEALER  COST! 


NOTE:  Monitor  nol 
available.  The   Plus/4"" 
cen  hook  up  to  vouf  TV. 


Factory  new! 
Factory  warranted  by  Commodore®.  Built-in 
software  for  word  processing,  data  process- 
ing, spreadsheets  and  128  color  graphics! 

Commodore*  designed  this  Plus/4'"  specifically  for  program- 
mers and  small  businesses!  And  then  tliey  made  it  VERY  EASY 
to  learn  and  use  (or  novices.  Popular  business  software  is 
available  for  a  variety  of  purposes.  For  programmers,  tfiis 
mactiine  tias  easy-to-use  powerful  commands  and  60K  of 
usable  memory.  Can  tiook  up  as  many  as  four  disk  drives. 

Team  up  tfie  computer  witfi  our  compatible  units  of  famous 
brand,  Jactory  reconditioned  and  warranted  DISK  DRIVE  and 
DOT  M ATRI X  P Rl NTERI  Sorry,  we  can't  pri nt  the  brand  name  of 
the  disk  drive  and  printer.  But  phone  us  Toll-Freeand  we  can  tell 
you.  With  Disk  Drive  for  data  storage  and  Printer  for  "hard 
copies",  you'll  have  a  complete  system,,. at  low  liquidation 
prices.  Order  TODAY! 


Units  sold  individuaify  or  in  any 
combJnafion  yau  desire. 


PLUS/4  COMPUTER 

Hem  H- 1402-5035-001  Ship,  hand:  Sa.OO 


DISK  DRIVE 

llem  H-1402-3553-O13  Ship,  hand:  $3.00 


PRINTER 

Item  H-1402-3a31-ODS  Ship,  hand:  $7.00 


TOTAL 

Ship,  hand    S23.00 


Original 
List  Price 


»299.00 


*269.00 


*200.00 


^768.00 


YOUR 
COST 


»79 


$149 


»119 


»347 


Additional  Features  of 

COMMODORE  PLUS/4 

Data  base  of  999  records.  Com- 
puter holds  99  lines  of  text  before 
ft  must  be  transferred  10  disk 
driven  E^tcellent  terminal  for  use 
withmodem.  128colDrsavaiiable 
for  graphics.  Split  screen  &nd 
windowing  capabilities  Compat- 
ible with  all  Commodore  hard- 
ware except  joystick  and  dataset. 
NOT  compatible  with  C64 
software. 

DISK  DRIVE 

Intelligent,  high -speed.  External 
5'/^"  fjoppv  diskette  fecerder.  2K 
RAM,  16K  ROM.  Maximum  stor- 
age of  170K  formatted  data:  35 
tracks.  Uses  single  sided,  single 
density  disk.  Serial  interface. 
Second  serial  port  for  chaining 
second  drive  or  printer^  Data 
transfer  rate  of  400  bytes  per 
second. 

DOT  MATRIX 
PRINTER 

Bi-directional  6x7  dot  matrix 
impact  printer^  GO  characters  prer 
second.  Has  upper  and  lower 
case  lenors,  numerals  and  sym- 
bols. Ail  PET  graphic  characters. 
Standard  friction  feed.  Maximum 
of  80  columns  width,  dot  address- 
able. CBM,  ASCII  character 
codes.  Original  plus  maximum  of 
two  copies,  RBper  width:  4.S"  to 
S.5".  Size:  13"Wx8"  D  k  3Va"  H. 
Weight:  6V3  lbs. 


COMPLETE  SYSTEM 

WITH  20  FREE  FLOPPY  DISKS 
Total  Original  Ust  . . .  ^827.90 


$339 


Liquidation 
Priced  At  Only . 

item  H- 1402-5035-01 9  Ship,  hand:  $19.00 


Credit  card  customers  can  order  by  phone, 

24  hours  a  day,  mn^ 

7  day*  a  week.        ITO*^  |\       ■ 

Toil-Free:  1-800-328-0609 

Sales  outside  contiguous  48  states  are  subject  to 
■pecJal  condHiona.  Please  call  or  write  to  inquire. 


COMBI 


Direct  Marketing  Corp. 


Authorized  Liquidator 

140S  N.  Xenium  Lane 
Minneapolis,  Minnesota  55441-4434 


Ic.O.M.B.  Direct  Markeling  Corp.  Item  HO402 

I   1405  N.  Xenium  Lane /Minneapolis,  MN  55441-4494 
I   Send  the  following  items.  {Minnesota  residents  add  6%  sales 
'   tax.  Sorry,  no  COD  orders.) 

I  Send COMPLETE  SYSTEM{>)  Commodore  Plus/4'",  Disk 

Drive,  Printer  and  Floppy  Disks  llem  H-1402-5035-Q19  atS339 

each  plus  $1 9  each  for  ship,  handling. 

Send ^COMMODOREPLUS/4"COMPUTER[aJltemH-1402- 

5035-001  at  S79  each  plus  S6  each  lor  ship,  handling. 

Send DISK  DRIVE(*)  Item  H-1402-3553-013  at  S149  each 

plus  S8  each  lor  ship,  handling. 

Send PRlNTEft(s)llemH-1402-3831-005atSl19eachplus 

S7  each  for  ship.  handJing. 

D  My  check  or  money  order   is  enclosed.  (No  tielays  Jn 
processing  orders  paid  by  check,  thanks  to  TeleCheck.) 
I  ChargerD  VISA*  □  MasterCard?^  Q  American  Express* 

IAcct.  No Ekd, 1 
PLEASE  PRINT  CLEARLY 

I   Narr^e   ^ 

I   AddrL'S^    ^^^^^^^_^^>^^^.^^^^^^.^^^^^^^^__ 

I   Civ  

I   State    ZIP 

I 


Phone  — L 


Sign  Here— 


a  1510  IF  HIW4ER-1  THEN  ROW-11 

JJ  1520  REM  SKIPl 

DE  1530  NEXT  ROW 

JB  1540  RETURN 

a   1550  REM  USEDLDOKUP 

K  1560  USED. FLAQ-0! SEARCH- 100*N 

ODEROH+NDDECOL 
IKl  1570  IJ<-0:IF  USED.CNTR-0  THEN 

1&20 
FC  1580  FOR  LK=1  TO  USED.  CNTR 
H  1590  IF  SEftRCH-U3EDX(LK>  THEN 
USED. FLAS- 1 I LK-U3ED. CNT 

R 
M  1600  NEXT  LK 
BP  1610  REM  SKIPSEARCH 
m  1620  IF  USED.FLAB-0  THEN  USED 

. CNTR-UBED. CNTR+1 i USEDX ( 

USED . CNTR } -SEARCH 
}i   1630    RETURN 
IH   1640   REM   CKECKPATH 
NO   1650   NODE.CNTR-0 
K   1660   FDR   NC-1    TO    6 
At   1670   NODERDM-kNODEROM+ROU.  INCX 

(NO  iNODECaL-NODECOL+COL 

.INCX(NC} 
FI  1680  IF  N0DER0W<1  OR  NaDERDU> 

11  OR  N0DEC0L<1  OR  NODEC 

0L>11  THEN  1730 
JL  1690  IF  HIVEX(NODEROH,NODECOL 

)<>PLAYER  THEN  1730 
DS  1700  QOSUB  1560!  IF  USED-FLAQ- 

1  THEN  1730 
«   1710  NODE. CNTR-NODE. CNTR+1 
ON  1720  NODE.  TOTAL -NODE.  TOTAL+ Is 

NODEXCNQDE. TOTAL) -100tNO 

DEROM+NDDECOL 
Jfl  1730  IF  tPLAYER-2  AND  NODEROH 

-11)  OR  (PLAYER-1  AND  NO 

DECOL-11)  THEN  WINNER-H 

PATH. TOTAL-PATH . TDTAL+ 1 1 

PATHX (PATH. TOTAL>"100«NO 

DEROW+NDDECOLl NC-6 
KP  1740  REM  SKIPNODE 
(W  1750  NEXT  NC 

«  1760  IF  HINNER-1  THEN  RETURN 
U  1770  IF  NaDE.CNTR-0  AND  NODE. 

TOTAL-0  THEN  RETURN 
tK  17B0  IF  NaDE.CNTR-0  THEN  PATH 

.  TOTAL-PATH.  TOTAL-PATHLE 

N  ( COUNTER )  I  PATH.EN  (COUNT 

ER)  -01  COUNTER-COUNTER-1 
M  1790  IF  NODe.CNTR>l  THEN  COUN 

TER-COUNTER +NDDE .  OJTR- 1 
a   1800  NODEROM-INTCNODEXCNODE.T 

OTAL)/100> 
EX  1810  NODECXX.-NODEX  (NODE.  TOTAL 

}-ie0*NODERDW 
El  1820  PATH. TOTAL-PATH. TOTAL+1 
U  1830  PATHLEN  (COUNTER) -PATHLEN 

(COUNTER) +1 
U    1840  PATHX  (PATH.  TOTAL) -NODEX( 

NODE. TOTAL) 
U  1850  NODE. TOTAL-NODE. TOTAL- I 
IE  1860  8OT0  1650 
U  1870  REM  DRAUPATH 
IF  1880  LOCATE  l.liPRINT  "THE  HI 

NNERl  "liPRINT  PLAYER*  (P 

LAYER) I 
JN  1B90  FOR  J"l  TO  PATH. TOTAL 
If  1900  ROW-INT(PATHX(J)/10«)iC:O 

L-PATHX < J) -100«ROHt CB-CO 

L«  lS-t-38+  (6-RaW)  I9i  RB-ROM 

tlS-1 
Fl  1910  IF  PLAYER-1  THEN  PUT(CB+ 

l,RB-l),BALLl,XORlPUT  (C 

B,RB-3),EYES1,0R  ELBE  PU 

T (CB+l , RB-1 ) , BALL2, XORi P 

UT  (CB,RB-3),EYES2,0R 
HE  1920  NEXT  J 
IK  1930  REM  SOASAIN 
Jfl  1940  LOCATE  24, It  PRINT  "Hant 

to  play  «g«in  (Y/N)7"| 
«  1930  A»-INKEY»tIF  A«<>-Y"  AND 

A«<>"N"  THEN  1930 
U)  1960  IF  A»-"N"  THEN  SCREEN  0, 

0,«iHIDTH  80IENS  ELSE  CL 

SiBOTO  50  jm 


Reviews 


Analyzel 
For  Amiga 

David  Powell 

Analyze!,  unlike  some  other  spread- 
sheets for  the  Amiga,  is  a  true  Amiga 
software  product,  making  full  use  of 
windows,  drop-down  menus,  icons, 
color,  and  the  Amiga  mouse.  You  insert 
the  Analyze!  disk  when  the  Amiga  asks 
for  the  Workbench.  When  you  select 
the  disk  icon,  a  window  appears  con- 
taining icons  for  an  Empty  Drawer,  a 
Trashcan,  and  the  Analyze!  program  it- 
self. By  using  the  Empty  Drawer  and 
Trashcan,  you  can  organize  a  spread- 
sheet into  directories  and  subdirec- 
tories, and  "clean  house"  easily  when 
the  disk  gets  too  full. 

When  you  select  the  spreadsheet 
icon.  Analyze!  opens  a  dialog  window 
through  which  you  can  partition  off 
memory  for  your  spreadsheet.  The  de- 
fault partition  is  128K.  If  you  enter  a 
larger  value  (one  that's  reasonable  for 
your  configuration,  of  course),  the  com- 
puter reserves  that  amount  of  memory, 
then  displays  the  spreadsheet  screen 
itself.  The  memory  partitioning  scheme 
lets  you  use  most,  but  not  quite  all,  of 
the  system's  free  memory.  On  my  512K 
system,  there  were  400K  bytes  of  mem- 
ory available  after  Analyze!  was  loaded. 
However,  1  couldn't  partition  off  more 
than  about  300K. 

Compression  Yields 
Extra  Room 

I  was  curious  to  see  how  big  a  spread- 
sheet I  could  cram  into  the  128K  default 
partition.  Theoretically,  at  one  byte  per 
cell,  a  square  128K  spreadsheet  would 
have  about  362  cells  per  side  (or  one 
could  just  fit  a  one-column  spreadsheet 
128K  cells  long.)  However,  Analyze! 
employs  the  sparse-matrix  technique  to 
permit  much  bigger  spreadsheets  than 
would  otherwise  be  possible.  Only  cells 
holding  text,  data,  or  formulae  are  actu- 
ally stored  in  memory.  Empty  cells, 
such  as  spaces  added  to  improve  read- 
ability, are  not. 

So,  128K  of  memor>'  holds  128K  of 
actual  data,  text,  and  formulae — no 
matter  how  large  the  spreadsheet's  ge- 


ography grows.  For  example,  a  one- 
column,  128K  spreadsheet  could 
actually  be  256K  cells  long  if  data  cells 
alternated  with  empty  cells.  This  per- 
mits you  to  arrange  the  spreadsheet  in 
an  attractive  manner  without  worrying 
about  wasted  memory. 

intuitive  Operation 

From  within  the  spreadsheet  screen, 
you  reveal  Analyze!' s  main  menu  bar  by 
holding  down  the  right  mouse  button. 
The  menu  bar  contains  five  menus: 
Project,  Range,  Worksheet,  Print,  and 
Recalculate.  While  holding  the  right 
button  down,  move  the  mouse  pointer 
to  one  of  these  options;  a  menu  of  its 
commands  drops  into  view.  You  select 
a  command  by  sliding  the  mouse  cursor 
to  it  and  releasing  the  mouse  button.  In 
short.  Analyze!  handles  menus  and  oth- 
er program  options  in  the  usual  Amiga 
fashion,  which  will  seem  natural  to 
Amiga  owners.  It's  easy  to  take  these 
intuitive,  easy-to-use  features  for  grant- 
ed until  you  try  operating  an  Amiga 
program  that  lacks  them.  (It's  still  pos- 
sible to  buy  an  Amiga  program  that 
doesn't  look  or  act  like  Amiga  software 
at  all.  Amiga  programs  that  ignore  the 
mouse  and  visual  icons,  operating 
chiefly  through  keyboard  controls,  are 
usually  quick  translations  of  software 
written  for  an  older  machine  such  as 
the  IBM  PC.) 

Commands  within  the  Project 
menu  display  a  Worksheet's  current 
formatting  parameters  and  allow  you  to 
load,  store,  delete,  and  update  spread- 
sheets stored  on  internal  or  external 
disk  drives.  (Spreadsheets  can  be  stored 
on  disks  used  by  other  programs,  be- 
cause Analyze!  only  looks  for  files  with 
the  extension  .SHT.) 

The  Range  menu  offers  commands 
that  name,  format,  label,  copy,  move, 
erase,  and  write-protect  individual  cells 
or  groups  of  cells.  People  building 
spreadsheets  will  use  these  functions 
frequently,  and  it's  nice  to  have  them 
all  in  one  place. 

Moving  And  Copying  Ceils 

An  example  will  show  you  how  easy 
the  Range  command — and  Amiga's 
mouse — make  the  task  of  moving  or 
copying  a  block  of  cells  to  a  new  loca- 


tion. This  requires  only  three  steps: 

1.  Select  the  Range  option's  Move  (or 
Copy)  command.  A  prompt  appears  on 
the  screen  asking  for  the  range  of  cells 
you  want  to  move. 

2.  Position  the  mouse  cursor  at  the 
upper-left  cell  of  this  range,  press  the 
left  mouse  button,  and  drag  the  cursor 
to  the  lower-right  cell.  Release  the 
mouse  button;  a  prompt  appears  on  the 
screen  asking  for  the  move  destination, 

3.  Move  the  mouse  pointer  to  the  upper- 
left  cell  of  this  destination;  then  click 
the  left  button.  Analyze!  repositions  the 
entire  block  of  cells  so  that  its  upper-left 
comer  coincides  with  the  destination 
cell. 

I  like  the  fact  that  such  operations 
can  be  done  without  touching  the  key- 
board. However,  you  can't  use  the 
mouse  to  define  ranges  that  go  beyond 
the  visible  screen.  So  Analyze!  also  of- 
fers simple  keyboard  procedures  for  se- 
lecting ranges  and  jumping  to  different 
places  in  a  spreadsheet. 

When  you  copy  cells  to  a  new  loca- 
tion. Analyze!  can  copy  formulae  in  the 
cells  in  absolute  form  (with  row  and 
column  references  transferred  verba- 
tim), in  relative  form  (with  references 
adjusted  for  the  new  location),  or  in  a 
combination  of  both.  (However,  all  cell 
references  are  kept  verbatim  when  you 
transfer  formulae  to  a  new  location 
with  a  Move  command.) 

A  Variety  Of  Formats 

The  main  menu's  Worksheet  option  in- 
cludes commands  that  insert  or  delete 
blank  rows  and  columns,  erase  a 
spreadsheet,  enter  titles,  format  all 
cells,  set  column  widths,  justify  labels, 
and  write-protect  the  entire  spread- 
sheet. Of  special  interest  is  the  Work- 
sheet option's  Format  command,  which 
differs  from  the  Range  option's  Format 
command  in  scope.  Worksheet  format- 
ting applies  to  every  cell  in  the  entire 
sheet,  not  to  a  specific  block  of  cells. 
Through  Range-Format  and  Work- 
sheet-Format, you  can  display  data  in 
the  following  formats: 

•  fixed-point  decimal 

•  scientific  (exponential)  notation 

•  dollars  and  cents 
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•  percentages 

•  dates 

•  with  commas  (for  instance,  2,123 
instead  of  2123) 

Negative  numbers  are  automati- 
cally displayed  in  red  to  distinguish 
them  from  positive  numbers,  which  ap- 
pear black  on  the  paper-white  back- 
ground of  the  spreadsheet. 

Another  Worksheet-Format  option 
(labeled  as  +/~)  can  convert  positive 
and  negative  integers  into  crude  bar 
charts.  This  option  is  designed  to  work 
only  with  integers  (whole  numbers),  so 
it  doesn't  work  as  well  with  noninteger 
values. 

Following  Worksheet  in  the  main 
menu  is  the  Print  command,  which  en- 
ables you  to  format  a  spreadsheet  and 
send  it  to  a  printer.  (However,  you  must 
still  use  Preferences  to  select  the  correct 
settings  for  your  particular  printer,)  The 
Print  feature  allows  you  to  set  top-of- 
form,  define  page  lengths,  transmit  line- 
feeds, print  part  or  all  of  a  spreadsheet, 
set  all  four  page  margins,  define  page 
headers  and  footers,  pick  rows  or  col- 
umns to  use  as  page  borders,  and  print 
calculated  formula  results  or  the  formu- 
lae themselves.  If  you  don't  want  to 
print  directly  to  a  printer,  you  may  send 
the  same  output  to  an  ASCII  disk  file 
for  further  formatting  by  a  word  pro- 
cessing program. 

The  last  option  in  the  main  menu 
(Recalculate)  lets  you  set  your  spread- 
sheet's calculation  order.  You  can  make 
recalculations  automatic  (after  each  cell 
change)  or  manual  (as  requested).  The 
calculation  order  can  be  top-Eo-bottom 
or  right-to-left.  Or,  it  can  be  natural,  in 
which  case  the  system  performs  multi- 
ple passes  to  pull  together  complex  data 
relationships  the  way  a  person  would. 

This  offers  more  calculation  flexi- 
bility than  many  spreadsheets  I've 
seen,  but  there's  even  more.  Analyze! 
also  lets  you  create  a  spreadsheet  that 
runs  through  as  many  as  50  iterations, 
or  recalculations,  before  displaying  its 
results.  As  a  former  mathematician,  I 
value  this  feature  highly. 

Special  Functions 

Advanced  users  will  also  welcome  the 
program's  library  of  special  functions. 
These  include,  but  are  not  limited  to, 
the  following: 

•  comparisons  and  logical  operators 

•  trigonomeh-ic  functions 

•  statistical  averages,  standard  devi- 
ations, and  variances 

•  table  lookups  within  a  spreadsheet 

•  logarithms  and  exponentials 

•  present/future  values  of  cash  flows 

•  loan  and  annuity  payments 

•  maxima/minima  of  values  in  a  block 


•  modulus  arithmetic 

•  random  numbers 

Analyze!  is  an  effective,  efficient 
spreadsheet,  with  very  few  apparent 
hugs.  However,  I  do  have  some  small 
complaints.  It  does  not,  for  instance, 
offer  a  macro  capability  for  writing 
spreadsheet-template  programs  (power 
users,  take  note).  It  could  also  handle 
formula  input  better.  Some  spread- 
sheets use  a  parser  that  looks  at  what 
you  type  and  decides  on  its  own  wheth- 
er you  have  entered  data,  text,  or  a 
formula.  Analyze!,  on  the  other  hand, 
makes  you  begin  every  formula  with  a 
plus  sign  (-I-).  This  is  a  bit  awkward. 

The  Analyze!  user  manual,  like  oth- 
ers of  its  type,  suffers  from  too  much 
text  and  too  few  illustrations.  You 
should  follow  along  with  the  computer 
as  you  read  the  manual.  However,  it 
does  include  very  useful  summaries  of 
all  system  menus  and  special  functions. 
However,  since  Analyze!  is  so  well  inte- 
grated with  the  Amiga's  Workbench 
metaphor,  you  can  learn  to  use  the 
program  almost  without  opening  the 
manual. 

Analyze! 

Micro  Systems  Software 

4301-28  Oak  Circle 

Boca  Raton,  FL  33431 

$99.95 


The  American 
Challenge:  A 
Sailing  Simulation 

Tony  Roberts 

Requirements:  Apple  ll-series  computer 
with  at  least  64K  RAM.  IBM  PC  or  PCjr 
ivith  128K  RAM  and  DOS  2.0  or  above. 
Graphics  card  required  for  use  ivith  PC. 
Commodore  64  (available  early  fall). 


The  pleasures  of  sailboat  racing  are 
effectively  recreated  in  The  American 
Challenge:  A  Sailing  Simulation  from 
Mindscape  and  Tom  Snyder  Produc- 
tions, Fashioned  after  the  America's 
Cup  races,  the  goal  of  the  game  is  to 
win  all  the  preliminary  heats.  This,  in 
turn,  gains  you  the  right  to  challenge 
the  Australians  in  an  attempt  to  regain 
the  Cup  for  the  United  States.  Should 
you  manage  to  beat  Australia  in  the 
program's  Cup  Race,  you  become  eligi- 
ble for  a  contest  that  could  win  you  a 
trip  to  Australia  to  watch  the  1987 
America's  Cup  races  in  person  (the  con- 
test closes  on  October  30,  1986). 

Talting  Tiie  Chalienge 

To  play  the  game,  you  choose  a  course; 


the  computer  displays  an  overhead 
view  of  the  course  and  shows  you  a 
suggested  route  around  it.  Sailing 
against  a  boat  piloted  by  the  computer, 
you  jockey  for  position  and  attempt  to 
cross  the  starting  line  just  as  the  horn 
sounds. 

The  computer  sails  a  pretty  good 
race.  It's  possible,  but  not  easy,  to  beat 
it,  and  there's  little  room  for  error  if  you 
hope  to  win.  You  control  your  boat's 
direction,  sail  trim,  and  centerboard  po- 
sition. At  any  time  during  the  race,  you 
can  press  the  space  bar  to  return  to  the 
overhead  view,  which  shows  the  paths 


The  American  Challenge:  A  Sailing 
Simulation  recreates  the  challenge  of 
competing  in  the  America's  Cup  races. 


both  boats  have  taken.  Press  the  space 
bar  again  and  the  race  resumes.  Other 
controls  allow  you  to  look  right  and  left 
off  your  board  and  to  zoom  in  on  the 
competition  or  zoom  back  for  a  wider 
angle  view. 

Seven  of  the  eight  courses  are 
based  on  the  courses  used  in  actual 
sailboat  races.  Each  race  becomes  pro- 
gressively more  difficult  as  the  currents 
become  stronger  and  your  compass  is 
taken  away. 

You're  not  to  sail  the  Cup  Race 
until  your  boat  has  beaten  the  computer 
at  all  seven  of  the  preliminary  races. 
Even  for  someone  familiar  with  sailboat 
raring,  it  will  take  quite  a  while  to 
become  that  proficient. 

Racing  against  the  computer  is  a 
challenge,  but  also  becomes  predict- 
able. The  computer  maintains  a  record 
of  the  best  time  for  each  course  and 
sails  a  course  the  same  way  each  time 
until  it  is  beaten. 

Two-Computer  Version 

One  way  to  eliminate  this  predictability 
is  to  choose  the  two-player  option. 
However,  this  choice  requires  that  you 
have  two  computers  connected  by  mo- 
dem or  a  null  modem  cable,  and  both 
computers  must  be  running  the  pro- 
gram. With  this  option,  you  can  send 
messages  to  the  other  captain.  This 
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communication  becomes  necessary  to 
settle  disputes  regarding  collisions  or 
possible  rules  violations. 

Sailing  against  another  human  adds 
to  the  enjoyment  of  the  game,  but  it 
also  slows  things  down  a  bit.  If  you  are 
using  300  bit-per-second  modems,  the 
races  take  from  five  to  twenty  nninutes 
each. 

One  other  option  allows  you  to 
race  a  high-speed  motorboat  around 
the  courses.  This  can  be  fun,  but  don't 
expect  to  take  on  the  Australians  with 
anything  but  wind  power. 

While  explaining  the  program,  the 
manual  also  imparts  quite  a  bit  of  infor- 
mation about  sailing  itself,  including 
sailing  basics,  racing  strategy,  and 
right-of-way  rules.  The  package  even 
includes  a  45  r.p.m.  phono  record  with 
a  sailing  tutorial  for  novices. 

The  American  Challenge:  A  Sailing 

Simulation 

Mindscape 

3444  Dundee  Road 

Northbrook,  II  60062 

Apple  11  series/IBM  flippy  version 

$39.95 

Commodore  version  (available  early  fall) 

$29.95 


Vorpal  Utility  Kit 

N.  Randall 

Requirements:  Commodore  1541  disk  drive- 


It  has  never  been  any  secret  that  a 
major  problem  with  a  Commodore  64 
system  is  the  speed  of  the  disk  drive. 
It's  slow.  Several  companies,  under- 
standing the  impatience  of  the  regular 
1541  user,  have  released  products  that 
speed  it  up.  One  of  the  most  popular 
has  been  Epyx's  Fast  Load  cartridge, 
which  many  owners  now  swear  they 
could  scarcely  do  without.  Following 
the  success  of  Fast  Load,  Epyx  has  now 
released  the  Vorpal  Utility  Kit.  For  any- 
one who  needs  to  manipulate  files, 
copy  disks,  or  make  use  of  extremely 
fast  loads  and  saves,  the  Vorpal  package 
could  quickly  become  indispensable. 

The  Vorpal  Utility  Kit  is  actually 
several  utilities  in  one.  With  VFiler,  you 
can  load  and  save  user-created  pro- 
grams at  about  25  times  the  normal 
1541  speed.  Note  that  this  does  not 
apply  to  commercial  software;  the  Fast 
Load  cartridge  takes  care  of  those.  What 
the  Vorpal  kit  does  is  add  a  fifth  fUe  type 
to  the  64's  normal  four  (program,  se- 
quential, user,  and  relative).  These  files 
make  use  of  the  kit's  greatly  increased 
speed. 

As  a  nonprogrammer,  I  must  con- 
fess to  a  thorough  disinterest  in  these 


super-fast  files,  simply  because  I  never 
create  programs  that  could  use  them. 
They  can  be  used,  though,  with  any 
BASIC  program  (and  some  ML  pro- 
grams) which  you  receive  from  user 
groups  or  type  in  from  a  book  or  maga- 
zine, in  addition  to  those  you  create 
yourself.  Epyx  makes  it  clear  on  the 
package  that  the  high  speed  applies 
only  to  user-created  software  and 
BASIC  programs. 

20-Second  Formatting 

More  exdting,  for  nonprogrammers  at 
least,  are  the  disk  and  fJe  utilities.  With 
the  Vorpal  Utility  Kit,  you  can  format  a 
disk  in  20  seconds  rather  than  the  usual 
two  minutes.  And  you  can  copy  an 
entire  disk — including  formatting — in 
less  than  three  minutes.  For  those  with 
two  or  more  disk  drives,  the  software 
allows  you  to  renumber  both  the  origin 
and  the  destination  drives  as  needed. 
File  commands  include  Delete,  Un- 
delete, Protect,  Unprotect,  and  Re- 
name, in  addition  to  the  following 
special  functions.  You  can  change  a  file 
from  one  type  to  another.  For  example, 
if  your  old  word  processor  stores  docu- 
ments as  USR  files,  and  you  buy  a  new 
word  processor  that  stores  them  as  PRG 
files,  the  Vorpal  Utility  Kit  lets  you 
change  them  in  seconds,  without  the 
tedium  of  reading  a  file  into  memory 


and  writing  it  back  to  disk  in  the  new 
format.  You  can  also  copy  files  and 
convert  them  at  the  same  time. 

The  final  utility  in  the  Vorpal  Utili- 
ty Kit  is  a  hardware  check.  The  program 
will  check  your  1541's  head  alignment 
and  drive  speed,  and  wUl  even  attempt 
to  correct  a  minor  alignment  problem. 
Impressively,  all  the  commands  on  the 
Vorpal  kit  respond  to  the  touch  of  a 
single  key,  and  the  manual,  although 
certainly  complete,  is  practically  super- 
fluous. Even  if  you  use  only  the  20- 
second  formatting  or  the  three-minute 
disk  copying,  the  Vorpal  Utility  Kit  is 
one  package  you  will  not  want  to  pass 
up. 

Vorpal  Utility  Kit 

Epyx 

1043  Kiel  Court 

Sunnyvale,  CA  94089 

$34.95 


Lords  Of  Conquest 

Todd  Heimarck 

Lords  of  Conquest  from  Electronic  Arts  is 
a  lot  like  the  popular  board  game  Risk, 
and  in  some  ways,  it's  even  better. 


What  are  the  5  ways  a  human 
being  can  react  to  a  problem? 


/    AnKrii:a'f*l Self tictp Bestseller 

LmimisB 


The  Mocfern  science  of 
Mental  Health 


Read  DIANETICS  by  L.  Ron  Hubbard, 
America's  #1  self-improvsnent  bestseller. 
Over  7-A  million  copies  sold.  26  weeks  on 
the  New  York  Times  bestseller  list  in 
hardback.  Now  available  wherever  paper- 
backs are  sold  or  call  1-800-367-8788. 


Q>pvriKltt  ^19Si6  BmiK  PuHianons,  Inc.  DL'WfmCS'"  Ls  a  traJenurk  and 
servvi'  mart  owTwd  Kv  RTC  and  k  ntftJ  with  ic  prrmiMirin 


-Page  197 


How  does  education 

help  you  handle  stress?  Page  203 

Does  time  "heal"  emotional  wounds 
-or  just  bury  them?  Page  319 
Can  bcarre  aches  and  pains 
be  caused  by  the  mind?  Page  199 

Can  anger  be  constructive?  Page  151 

Is  it  possible  to  spoil  a  child 
with  love?  Page  143 


YESt  1  wajnK  to  learn  how  to  improve  my  life  with 

DlANEnCS.  PIrasc  send  me  the  bc»k  right  away. 

Enclosed  is  my  check/money  carder  for  55.00  (indudii^ 

postage  and  handling). 

BRIDGE  PUBLICATIONS,  Dept  C6 

1414  N.  Catalina  St.,  Hollywood,  CA  90027 


All  the  exciting, 

entertaining,  and 

educational  games, 

applications,  and  utilities 

from  COMPUTE!  magazine 

are  now  available  on  disk 

for  your  Commodore, 

Atari,  Apple,  or  IBM 

personal  computer. 

The  COMPUTE!  Disk 


A  new  COMPUTE!  Disk  is  published 
every  month,  rotating  among  the  four 
major  machines  covered  by  COMPUTE!: 
Commodore  64  and  128;  Atari  400/800, 
XL,  and  XE;  Apple  Il-series;  and  IBM  PC, 
PCjr,  and  compatibles. 

Every  three  months  you  can  receive 
a  disk  with  all  the  quality  programs  from 
the  previous  three  issues  of  COMPUTE! 
that  will  run  on  your  brand  of  computer. 

Like  the  popular  COMPUTE!'s  Ga- 
zette Disk,  the  COMPUTE!  Disk  is  ready- 
to-load  and  error-free.  It  saves  you 
valuable  hours  of  typing  time  and  elimi- 
nates typing  errors. 

With  a  subscription,  you  will  receive 
one  disk  every  three  months  for  a  total 
of  four  disks  a  year — for  only  $39.95. 
That  saves  you  $20  a  year  off  the  single- 
issue  cost. 

Or  you  can  order  individual  issues 
of  the  Disk  for  S  12.95  a  disk  plus  $2.00 
shipping  and  handling. 


Remember  to  specify  your  type  of 
computer  when  ordering  the  COMPUTE! 
Disk.  You'll  find  more  information  about 
this  month's  COMPUTE!  Disk  in  this 
issue.  (Note:  You'll  need  the  correspond- 
ing issues  of  COMPUTE!  magazine  to  use 
the  Disk  since  the  disk  will  have  no 
documentation.) 

For  fastest  service  when  ordering  a 
subscription  to  the  COMPUTE!  Disk,  call 
toll  free  1-800-247-5470  (in  Iowa 
1-800-532-1272). 

For  more  details  or  to  order  individ- 
ual issues  of  the  COMPUTE!  Disk,  call 
our  Customer  Service  Department  toll 
free  at  1-800-346-6767  (in  New  York 
212-887-8525). 

Please  allow  4-6  weeks  after  placing  an 
order  for  your  fir«t  disk  to  arrive. 


COMPUTE!  Publicationsjnc® 

Porr  ot  ABC  Coisu^e?  Mogozmes.  i^  ^^^r 

One  of  tne  ABC  PubLsn^ng  Comoanies 

825  7lh  Avenue.  6th  Root.  New  Vork   NV  10019 

P\JCkV^t  of  COWPIjTeI  computed  Soiene,  COwPuTEIs  GaMtte  Dm.  COMPUTE'  Boota.  COWJTtlJ  Ado*« 

Apc*caiofu.  <rya  Cs>*UTE<'*  Aion  ST  Dift  ana  ^*oooa^»e 


King  Of  The  World 

A  game  of  Risk  begins  with  a  world 
map  divided  into  a  number  of  countries 
owned  by  various  players.  By  shaking 
the  dice,  you  win  and  lose  territories. 
Some  countries  are  isolated  (Eastern 
Australia,  Japan,  and  Argentina),  while 
others  are  busy  crossroads  (the  Middle 
East  and  the  Ukraine,  to  name  a  cou- 
ple). The  ultimate  goal  is  to  build  up 
your  armies  and  win  enough  battles  to 
conquer  the  world. 

In  Lords  of  Conquest,  the  basic  idea 
is  to  take  over  the  world,  but  you  win 
by  building  or  capturing  a  certain  num- 
ber of  cities — from  three  to  six.  Some  of 
your  territories  produce  raw  materials 
such  as  gold,  iron,  coal,  timber,  and 
horses.  When  you've  acquired  certain 
combinations  of  materials,  you  can  buy 
weapons  or  place  a  new  city  on  the 
map. 

Before  the  game  starts,  you  split  up 
the  available  territories.  It's  important 
to  choose  countries  that  contain  coal 
mines,  gold  mines,  forests,  and  the  like, 
so  you  can  start  building  up  your  stock- 
pile of  raw  materials.  At  the  same  time, 
you  should  pick  areas  that  are  near  each 
other,  because  your  defenses  will  be 
stronger  if  you  have  friendly  countries 
as  neighbors. 

Up  To  Four  Players 

You  can  play  one-on-one  against  the 
computer,  or  you  can  involve  as  many 
as  four  human  players.  The  disk  con- 
tains 20  maps,  including  Europe,  Afri- 
ca, North  America,  the  Middle  East, 
South  America,  Japan,  Australia,  and 
the  Mediterranean.  If  you're  not  satis- 
fied with  the  built-in  maps,  you  can  ask 
the  computer  to  generate  a  random  bat- 
tlefield from  parameters  you  supply. 
You  can  also  create  your  own  map.  It 
takes  some  time  to  build  a  map,  but  you 
can  fine-tune  it  until  it  looks  just  the 
way  you  want.  These  new  maps  can  be 
saved  to  disk  for  use  in  later  games. 

Select  a  level  of  play:  beginner, 
intermediate,  advanced,  or  expert.  In 
the  beginner  level,  there  are  only  pas- 
tures (a  source  of  horses)  and  gold 
mines;  this  level  is  suitable  for  playing 
with  children.  More  challenging  is  the 
expert  level,  featuring  horses,  gold,  tim- 
ber, coal,  and  iron. 

Should  you  choose  to  play  the 
computer,  you  must  also  select  a  level 
of  difficulty.  Level  1  gives  you  a  big 
advantage  (four  extra  territories)  and 
level  9  skews  the  game  in  favor  of  the 
computer. 

After  you  divvy  up  the  territory, 
the  game  begins.  Each  round  has  sever- 
al phases.  During  development,  you 
can  use  your  gold  and  other  commod- 
ities to  create  weapons,  boats,  or  cities. 
Production  comes  next;  more  raw  mate- 


rials are  added  to  your  inventory.  You 
then  have  a  chance  to  move  your  stock- 
pile to  a  new  country.  The  stockpile  is 
like  an  imperial  treasury;  if  another 
player  captures  it,  he  or  she  will  get  all 
your  gold,  iron,  coal,  and  timber.  Final- 
ly, there's  a  combat  phase  during  which 
each  player  can  send  forces  against  the 
other  players.  You're  limited  to  two 
attacks  per  round. 

To  create  a  city,  you  have  two 
choices:  Spend  one  unit  of  iron,  coal, 
timber,  and  gold,  or  use  four  gold  units. 
In  the  advanced  and  expert  games  you 
can  build  a  boat  (a  naval  force)  with 
three  timber  units,  or  buy  one  with 
three  units  of  gold.  A  boat  can  carry  a 
horse  and  a  weapon,  which  makes  it  a 
valuable  offensive  force. 

Offense  Or  Defense? 

There's  a  lot  to  be  said  for  building 
cities.  The  ultimate  goal  is  to  own  three 
or  more  cities,  so  each  one  you  build 
brings  you  one  step  closer  to  winning. 
Cities  also  increase  production  in  the 
neighboring  countries,  If  you  place  a 
city  next  to  a  gold  mine,  its  output  will 
double  from  one  unit  to  two. 

But  cities  are  fairly  expensive.  And 
if  you  spend  all  your  resources  on  cities 
while  your  opponents  build  up  their 
horses,  weapons,  and  boats,  you  may 
eventually  lose  the  game.  Your  oppo- 
nent will  likely  attack  and  conquer  your 
cities.  Ownership  of  a  certain  number 
of  cities  is  the  goal.  It  doesn't  matter 
whether  you  build  the  cities  or  capture 
them. 

Each  game  of  lords  of  Conquest  has 
a  definite  rhythm.  In  the  first  couple  of 
rounds,  weak  and  isolated  countries  are 
overrun  by  invaders,  especially  if  the 
country  produces  a  valuable  commod- 
ity. As  the  territories  coalesce  in  the 
middle  rounds,  powerful  armies  build 
up  along  the  borders  between  empires. 
When  boats  first  appear,  the  complexion 
of  the  game  changes.  Suddenly,  any 
coastal  country  is  vulnerable  to  an  at- 
tack from  the  sea,  It's  difficult  to  defend 
a  coastal  country  from  marauding 
Vikings. 

The  mechanics  of  the  game  are 
fairly  simple;  there  are  four  commod- 
ities, three  weapons,  and  the  cities.  But 
Lords  of  Conquest  requires  a  good  sense 
of  strategy.  On  your  way  to  the  goal  of 
building  cities,  you  have  to  watch  your 
resources  and  try  to  keep  them  from 
your  opponents.  If  you  own  no  country 
with  a  gold  mine,  you  may  have  to 
develop  a  short-term  strategy  to  cap- 
ture one.  You  should  spend  your  mon- 
ey wisely,  occasionally  forgoing  a  new 
weapon  to  save  up  for  a  city. 

Geography  and  distribution  of  re- 
sources are  also  important  factors.  The 
strategy  that  works  best  on  one  map 
might  fail  miserably  on  another.  Boats 
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Educational  Software  that  Works 


GREAT  PRODUCTS  FOR  YOUR  COMMODORE 

promenade  CI'"  CAPTURE'" 

The  Eprom  Programmer.  Thoughtfully  designed,  Take  control  of  your '64  or '128' with  this  easy  to  use 
carefullyconstructed,  thepromenacfeC1'"isrespected  cartridge.  Lets  you  make  a  back-up  disk  of  your 
around  the  world  for  quality  and  value.  The  original  memory-resident  software.  Your  program  is  then  fully 
software  controlled  programmer  does  away  with  accessible  to  you  and  your  program  can  be  re-booted 
personality  modules  and  switches.  Intelligent  from  your  disk  3-5  times  faster.  Or  make  an  auto- 
programming  capability  can  cut  programming  time  by  starting  cartridge  using  the  promenade  CI  and  a  CPR 
95%!  With  Disk  Software still  just  $99.50  cartridge  kit.  Its  magic! 

CAPTURE"  is  a  bargain  at  39.95 
CARTRIDGE  MATERIALS: 

CPR-3  -  Three  socket  board,  case  and  3  eproms.  for  use  with  CAPTURE'"  29.95 

PCC2  -  Two  2732  (4K)  or  2764  (8K)  eproms.  For  '64  or  '1 28  in  64  mode 4.95 

PCC4  -  Four  sockets  for  2764,  27128  or  27256  (32K)  eproms.  Bank  switching 17.95 

PCC8  -  Like  the  PCC4  but  twice  the  capacity.  For  multiple  programs  29.95 

PRB4  -  Four  sockets,  eprom  &  battery  backed  RAM  combination 24,95 

PTM2  -  Basic  128  mode  cartridge  board.  Two  2764  or  27128  eproms 5.95t 

PTM4  -  Four  sockets,  27128  &  27256  eproms.  128  mode  bank  switcher 19.95t 

PCCH2  -  Plastic  case  for  above  cartridges  (except  PCC8) 2.25 

Eproms  -  Always  in  stock  at  competitive  prices.  tavailable  June  '86. 

"when  in  64  mode. 

EPROM  ERASERS: 

Datarase  -  Hobbyist  eprom  eraser,  2  at  a  time,  3  to  10  minutes  34.95 

PE14  -  Industrial  quality  eraser,  7  to  9  at  a  time 79.95 

Starter  Set  -  CAPTURE",  promenade  CI  and  one  CPR3  kit 149.95 

Deluxe  Set  -  CAPTURE",  promenade  C1,  Datarase  and  two  CPR3  kits 199.95 

SHIPPING  &  HANDLING:  USA  -  UPS  SURFACE  $3.00        FOREIGN  (AIR  MAIL  ONLY)  $13.00 

HH^  TO  ORDER  TOLL  FREE  800-421-7731 

I      1  IAOr\M    DAMUCIRil  FROM  CALIFORNIA  800-421-7748 

I     J  JAoUINJ-HAINntlM  TECHNICAL  SUPPORT  916-823-3284 

'^i^  1805  INDUSTRIAL  DRIVE  FROM  OUTSIDE  USA  916-823-3285 

^J  AUBURN,  CA  USA  95603  MC,  VISA,  AMEX  WELCOME 


are  valuable  when  islands  are  plentiful, 
but   they're   relatively   unimportant 
when  the  map  contains  mostly  land. 

The  Role  Of  Diplomacy 

The  computer  plays  a  tough  game;  at 
the  higher  levels  you  won't  often  beat 
it.  And  when  you  play  with  other  peo- 
ple, diplomacy  plays  a  role:  "I  won't 
attack  you  if  you  won't  attack  me."  The 
multiplayer  game  also  allows  for  alli- 
ances. When  more  than  two  players  are 
near  a  battle,  the  uninvolved  players 
can  send  forces  to  the  attacker  or  de- 
fender, or  they  can  remain  neutral.  You 
also  have  a  chance  to  trade  commod- 
ities— a  gold  and  an  iron  for  two  coal 
mines,  for  example. 

If  you're  a  Risk  player,  you'll  enjoy 
Lords  of  Conquest,  and  if  you  get  tired  of 
conquering  one  world,  you  can  easily 
find  or  build  another.  A  second  useful 
feature  is  the  one-player  game:  When 
you  want  to  play,  but  can't  round  up  a 
group  of  opponents,  you  can  test  the 
computer's  abilities.  The  only  negative 
comments  I've  heard  concern   the 
graphics.  There's  nothing  particularly 
wrong  with  them;  they're  just  simple. 
The  countries,  for  example,  are  made 
up  of  colored  squares.  This  doesn't  af- 

fect the  playability  of  the  game,  so  it's  a 
minor  criticism. 

Lords  of  Conquest 

Electronic  Arts 

1820  Gateway  Drive 

San  Mateo,  CA  94404 

Commodore  verBion  $32.95 

Apple  11  and  Atari  8-bit  versions  soon 

to  be  released;  no  prices  available. 

@ 

Attention  Programmers 

coMPUTEi  magazine  is  currently 
looking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
the  Commodore  Amiga  and 
Atari  ST),  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTEI,  P,0. 
Box  5406,  Greensboro.  NC 
27403,  Or  v*/rite  for  a  copy  of 
our  "Writer's  Guidelines," 
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SOFTWARE 
THAT  TALKS 

AGES  2-8. 


TnUtuig  Toiicher  combines  revolutionary 
software  sjjeech,  superb  rirnphics  and 
engrossing  play  action  to  provide  you 
lAfith  tliG  neKt  step  in  home  computer 
software-  No  ifpecial  hardware  is 
required  to  make  your  computer  talk ! 
Talkincy  Teacher  contuluK  three 
seperate  learning  games  for  children 
ages  Z~B.  The  iessuns  teach  t 
'   Capital  and  lowercase  letter 

identificatioit  aud  keyboard  location 
*   A  basic  vocabulary  and  initial  letter 

sounds  of  over  100  words. 
'    Spatial  relationships  (left,  right, 

higher  and  lower). 


Lesson  One  pronounces  and  prints  each 
letter  as  it  is  typed.  Children  can  type 
their  names,  short  m(!ssages  or  just 
have  (un  with  the  keyboard!  Ages  2-5. 

Lesson  Two  Leads  your  child  through 
the  alphabet,  pronouncing  each  letter 
and  using  it  in  a  word.  Typing  the  right 
letter  causes  a  countryside  filled  with 
fantastic  creatures  and  objects  to 
unfold.  Ages  3-6. 

Lesson  Three  asks  your  child  to  identify 
the  beginning  letter  of  the  words 
presented  in  Lesson  Tufo.  Mistakes  are 


reviewed  and  correct  answers  arc 
musically  rewarded.  Ages  4~a. 

NOTE  TO  PARENTS:  After  loading,  all 
three  lessons  may  be  enjoyed  by  your 
children  without  your  direct 
superviKioii.  However,  the 
educational  value  can  be  enhanced 
by  your  participation  and 
encouragement. 


F  ACTSHEET/ORDER  HOTLINE:  201,934.7373     FIREBIRD  LICENSEES  ING.  P.O.  BOX  49,  RAMSEY,  N.J.  07446 

COMMODORE  SUMS  ARE  TRADE  MARKS  OF  COMMODORE  8US!NESS  MACHINES. 


oO^^^> 


Jacket  Lister 


The  more  disks  you  have,  the  more 
you'll  enjoy  this  novel  utility.  It 
prints  a  disk  jacket  with  an  alphabet- 
ized directory  of  all  the  programs  on  a 
disk.  The  original  version  of  "Jacket 
Lister"  runs  on  the  Commodore  64 
and  128  (in  64  mode).  We've  added 
new  versions  for  the  IBM  PC/PCjr, 
Apple  11  series  (DOS  3.3  and  Pro- 
DOS),  and  Atari  400,  800,  XL,  and  XE. 
A  printer  is  required.  The  Atari  ver- 
sion requires  at  least  32K  of  memory. 


How  many  times  have  you  picked 
up  a  disk,  only  to  realize  that  you 
can't  remember  which  programs 
are  on  it?  You  can  always  get  a  disk 
directory  in  the  usual  way — by  put- 
ting the  disk  in  the  drive  and  listing 
the  directory  on  the  screen — but 
that's  slow  and  tedious  when 
you're  looking  for  a  specific  pro- 
gram. 

"Jacket  Lister"  is  a  unique, 
time-saving  solution  to  this  peren- 
nial problem;  It  not  only  allows  you 
to  create  a  personalized  jacket  out 
of  ordinary  paper,  but  also  lists  an 
alphabetized  directory  on  the  jacket 
itself.  In  a  glance,  you  can  see 
which  programs  are  on  each  of  your 
disks,  A  date  is  also  included  so  that 
you  can  tell  whether  the  listing  is 
obsolete.  The  jacket  listing  may  in- 
clude as  many  as  88  filenames, 
using  the  front  and  back  of  the  jack- 
et. (Some  computers  can  store  more 
than  88  files  on  a  disk,  but  the 
jacket  does  not  have  room  for  more 
than  that  number.) 


Gregory  Jackmond 
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Copy  II  Option  Bd.  74.00 
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Crossslalk  91.95 

dBase  III-  419.95 

Deadline  Manager  i;)4.95 
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Einstein  Wriltr  118.95 

Electric  Disk  214.95 

Fontrii  2.S  II4.9S 
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Framewuk  II  419.95 

Gamecarii  III  39.95 
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In  House  Accountant  119.95 

Jet  J2.T5 
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Lotus  CALL 
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Micro  Cooktioak  22,00 
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Wortl  239.95 

WindONS  (9.95 

Norton  Utilities  55.95 

Option  Board  74.00 
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Print  Shop  3«.95 
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R:Bffle  500O  339.95 
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Will  Writer  27.95 

Wizardry  38.00 
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Auto  Works  27.95 
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Beagle  Graphics  29.95 
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Bookends  64.95 
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Fentavision  26.95 

Fat  Cat  17.95 

FteiType  14.95 

Fontrii  1.5  53.25 
Fntpks  1  thru  13      ea.  13.D0 

Font  Works  J4.95 

Forecast  35.00 

Frame-Up  14.95 

GalO  20.45 

GlJoe  19.95 

Graptiics  Depanment  64.95 

Graphics  Eipander  21.95 

Graphic  Magician  26.95 

Graphwodts  57.95 

GPLE  24,95 

Handler  Package  69.95 

Impossible  Mission  23,50 

1.0,  Silver  14.95 

Jeeves  29.95 

Karaleka  19.45 

Knight  ol  Diamonds  19.50 

Kids  on  Keys  17.95 

Kid  Writer  13.89 
King's  Quest  I  or  II  23.009,95 

Koronis  Rilt  23.49 

Legacy  of  Llylgamyn  22.50 

List  Handler  39.95 

Locksmith  56.95 

Mngng  Yr  Money  101.95 

Megaworks  64.95 

Meilin  33.69 

Mertin  Pro  54,95 

Merlin  Combo  63.95 

Micro  Cooktiook  21.45 

Milllonairt  22,50 

Minipix  14.69 

Moebiu:  34.95 

MouseWrile  71,95 


Munch-A-Bug 

23.95 

NATO  Commander 

19.45 

PFS:  Plan 

69.95 

PFS:  Access 

44.00 

PFS:  Write 

69.95 

PFS:  File 

69,95 

PFS:  Report 

69.95 

PFS:  Graph 

69.95 

PfS:  Fust  Success 

126.0(1 

Piece  ol  Cake  Math 

15.95 

Pinpoint 

39.95 

Prince 

43,95 

Print  ographer 

23,95 

Print  Shop 

26.69 

PriShpGr.  ;1,!.  oi3 

13.95 

Print  Shop  Comp, 

21.95 

Probyler 

17.95 

Pronto  DOS 

14.95 

Prol,  tour  golf 

25.89 

Quicken 

5I.9S 

Report  Card 

32,95 

Rescue.'Fractalus 

23,50 

Reportworks 

64,95 

Rescue  Raiders 

24,95 

Science  tool  kit 

32,95 

Sensible  Grammar 

52,95 

Sensible  Speller 

64,95 

Shape  Mechanic 

20,00 

Sideways 

29.95 

Silicon  Salad 

12.69 

Skyloi 

24.25 

Spellworks 

29.95 

Spitfire  Simulator 

24,75 

Spy  Hunter 

26,00 

Sticky  Bear  ABC 

23.75 

Basket  Bounce 

23.75 

Cat  Builder 

23,75 

Math 

23,75 

Numbers 

23.75 

Opposites 

23,75 

Reading 

23,75 

Spellgrabber 

23,75 

Townbuilder 

23,75 

Typing 

23,75 

Summer  Games  1  or  II 

22,45 

SuperCalc  3A 

109,95 

Terrapin  Logo 

54.50 

Terrapin  Utilities 

14.95 

Think  Tank 

83.89 

Thinkworks 

64.95 

Time  IS  Money 

57.45 

Tip  Disk  =1 

12.00 

Transylvania 

11.95 

Tripie-Oump 

18.95 

Turbo  Database  TIbj 

2/.95 

Turbo  Pascal  3,0 

34.95 

Turbo  Tutor 

20.50 

Ullima  IM 

33.25 

Ultima  IV 

33.25 

Understanding  HE 

17.95 

Universal  lile  com 

24.95 

Utility  City 

15,25 

Versatorm 

43,45 

Video  Toolboi 

23,95 

Visiilile5S02 

31.75 

Wilderness 

38.95 

Winter  Ganes 

21.45 

Wizardry 

26.50 

Wizsd's  Toolboi 

23.95 

Wiiprinl 

14.25 

Word  Handler 

39.95 

Word  Perteet 

125.95 

World's  Grtst  Ftball 

22.45 

Write  Choice 

26.45 

Aerojet  24.95 

All  Rescue  I  24.95 

Bird's  Tale  27.50 

Ballblazer  23.49 

Baci<  to  Basics  134.95 

Bank  Street  Storybook  27.95 

Bank  Street  Speller  34,95 

Bank  Street  Writer  34,95 

Basic  Toolkit  29,95 

Biazin9  Paddles  24,95 

Brrwed  Time  64M28  20,95 

Color  Me  20,95 

Cntdwn  to  Shidwn  20,95 

Fast  Tracks  20,95 

Gertrude's  Secrets  20.95 

C  I  Joe  19.95 

Graphics  Magician  27.95 

Grappler  CD  79,95 

Git  Amer  Road  Race  20.95 

Hacker  20.95 

Jet  64n2B  27,95 

Jet  Combat  Simulator  20,95 

Karateka  19.45 

Kehnedy  Approach  24,95 

Kola  Pad  54,95 

Kung  Fu  20,95 

Little  Comp,  People  24,95 

Mail  Order  Monsters  24,95 

Merlin  34.95 

Mig  Alley  Ace  24.95 

Multiplan  64/128  43,95 

Music  Shop  31,95 

Nato  Commander  19,75 

Paper  Clip  41,95 

PFS;  File  34,55 

Pfint  Shop  29,95 

Piinl  Shop  Comp.  21.95 

Pr,  ShopGr,  1.2,or3  13,95 

Rescue  on  Fradalus  23,50 

Scrabble  541121  27,95 

Sideways  20,95 

Silent  Service  19,95 

Spittire  Ace  20,95 

Spreadsheet  34,95 

Spy  vs.  Spy  20.95 

Sticky  Bear  ABC  2D.95 

Numbers  20.95 

Opposites  20.9S 

Shapes  !0,95 

Summer  Games  t  ot  II  22.45 

Temple  ol  Apshai  Tril.  22.45 

Winter  Games  21.45 

Worid's  Gnst  Bsball  19.45 

Worid's  Grtst  Ftball  22.45 


^ 

IBM 

Dalacase 

7.95 

APPLE 

Disk  Notcher 

4.J5 

COM  ItODORE 

Ftip-n-Fite 

10.95 

^   _  ^ 

Lemon 

31.95 

Clip  Art  (Volt) 

15,95 

Lime 

48.95 

Clip  Art  (Vol  2) 

21,95 

Copy  It- 

18,50 

APPLE  HARDWARE 

Crossword  Magic 

30,00 

Crusade  in  Europe 
Cut  t  Paste 

22,95 
23.00 

80  Col.  64X  Card 
Apple  Cat  II 

49.95 
184.95 

Cutthroats 

23,69 

Disk  Drive  Hi  Tech 

139.95 

Deadline 

25,00 

Gibson  Light  Pen 

143.00 

Early  Games 

15,95 

Grappler  Buffered 

114.95 

Easy  as  ABC's 

20,95 

Grapiiler  - 

71.95 

Enchanter 

20,95 

Grappler  (sefiatj 

71,95 

Family  Roote 
Flight  Sim  It 
Fraction  Factory 
F-15  Strike  Eagle 
Ghost  Busters 
Hitchhiker's  Guide 

149.95 
30.50 
15.95 
20.00 
22.00 
21.75 

Grappler  C 
Hoi  link 
Kraft  Joystick 
Koala  Pad  - 
Laser  128  Computer 
Mach  II  Joystick 
Mach  111  Joystick 

71,95 
44,95 
25.95 
70.45 
395.95 
26.20 
32.20 

19,45 

Mictomodem  HE 
Mockingboard  A  or  B 

139,95 
65,95 

_  _  ^^_ 

Load  Runner 

20,75 

Mociiingboard  C 

116,00 

Mastertype 
Math  Blaster 
Micro  Lg,  Biseball 

23,25 
26,95 
22,50 

Mockingboard  0 
Mockmgboard  A-MAX 
MultiramCXSI2K 

126,45 
33,95 
209,DO 

Micro  Lg,  Manager 

27.95 

Mulbram  HE  80(64K 

124,00 

Micro  Lg,  Team 

13,95 

Multiview  II  -  30fl60 

199,00 

Mind  Forever  Voy, 

30,95 

Padilleslicks 

26,50 

Music  Construction 

24,75 

Paritel  Printer  Card 

44,95 

Newsroom 

30,50 

Prometheus  1200A 

254,95 

One-On-One 

24.00 

Print-it 

123,50 

Pnstop  It 

23,50 

Super  Serial  Card 

B4,93 

Planettall 

22.00 

System  Saver  Fan 

59-95 

Print  Shop  ReMI 

12.25 

Thunder  Clock 

102,95 

Reader  Rabbit 

22.75 

Wildcard  11 

74,95 

Ssrgon  III 

27.20 

ZEE  BOA  Checkmate 

54-95 

Sat  IHarcort  Brace) 

45.00 

Zoom  HE 

109,00 

Scastaiker 

22.00 

Sofffiier 

26.00 

Solo  Flight 

19.95 

PRINTERS 

Speed  Reader  II 

36.95 

Spell  It 

26.95 

Star  NK-IO 

CALL 

Spy  Huntej 

26.00 

StarPowertype 

344-95 

Starcross 

28,00 

Primer  Stand 

16-95 

Suspect 

26.00 

Dkidata  t82P 

229,95 

Suspended 

28.00 

Okidata  192P 

399,95 

Temple  ot  Apshai  Tri 

22.45 

Okimate  20 

209.95 

Typing  Tulor  III 

28,50 

Colored  prnti  ribbons 

CALL 

Will  Writer 

23.45 

Cotof  Paper  Pack 

12.95 

Wishbringcr 

27.95 

Witness 

22.00 

Word  Attack 

26.95 

MONITORS 

Word  Spinner 

20.SO 

World  s  Gnst  Bsball 

19.95 

Hagnavoi  Monitors 

CALL 

ZorkI 

21.75 

Amdek  Color  600 

414.99 

Zorkllorlll 

24.75 

Samsung  Color  Mntr 

169.56 
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Type  in  the  appropriate  pro- 
gram for  your  computer,  then  save 
a  copy  before  you  run  it.  The  vari- 
able NS$  in  Une  420  (NAMES  in 
line  15  for  the  Atari  version)  defines 
your  personalized  title  for  the  jack- 
et, which  you  can  change  to  what- 
ever you  like.  You  may  substitute 
any  characters  in  the  definition  of 
NS$,  but  don't  make  the  string 
longer  than  26  characters. 

Jacket  Lister  is  a  self-prompting 
program,  so  you  don't  need  elabo- 
rate instructions.  Simply  run  the 
program,  insert  the  disk  that  you 
want  to  catalog,  then  follow  the 
screen  prompts  to  create  a  custom 
jacket  for  that  disk.  When  the  jacket 
has  finished  printing,  all  that's  left 
to  do  is  to  cut  the  cover  to  size,  fold 
it  along  the  printed  fold  lines,  and 
glue  the  flaps. 

Commodore  64  Version 

Commodore  Jacket  Lister  (Program 
1)  runs  on  a  Commodore  64  or 
Commodore  128  in  64  mode.  The 
program  is  written  for  standard 
Commodore  printers  (and  for  non- 
Commodore  printers  that  can  emu- 
late the  standard  Commodore 
graphics  characters),  but  can  easily 
be  modified  to  work  on  other  print- 
ers as  well.  Simply  change  the 
graphics  symbols  to  dashes  (-)  or 
exclamation  points  (!)  in  lines  510, 
1100,  and  1240.  (Horizontal  Unes 
are  formed  from  the  dashes,  and 
vertical  lines  from  the  exclamation 
points.)  The  program  also  uses 
characters  17  and  145  as  control 
codes  to  set  the  printer  for  lower- 
case/uppercase or  uppercase/gra- 
phics printing,  respectively.  You 
may  need  to  substitute  other  con- 
trol codes  for  these  in  lines  100  and 
110. 

If  you  have  a  Commodore 
Plus/4,  16,  PET/CBM,  or  VIC-20 
with  expansion  memory,  you 
should  be  able  to  make  Jacket  Lister 
work  with  only  slight  modifica- 
tions. The  POKEs  that  change  the 
screen  color  and  create  sound  ef- 
fects are  specific  to  the  Commodore 
64;  if  you  delete  these  statements, 
the  program  should  run  on  nearly 
any  Commodore  computer. 

Atari  Version 

The  Atari  version  (Program  2)  runs 
on  any  Atari  400,  800,  XL,  or  XE 
computer  with  at  least  32K  of  mem- 
ory,  and   should  work   with   any 


standard-width  printer.  No  special 
instructions  are  required;  simply 
follow  the  directions  on  the  screen. 

Apple  II  Version 

With  the  Apple  11  version  of  Jacket 
Lister,  all  output  is  in  uppercase.  If 
you  are  using  DOS  3,3,  type  in 
Program  3  as  listed.  For  ProDOS, 
start  with  Program  3,  but  omit  lines 
80-200  and  add  the  lines  listed  as 
Program  4.  In  either  case,  you  may 
have  to  modify  line  450  to  suit  your 
particular  printer  configuration. 

IBM  PC/PCjr  Version 

In  this  version  of  Jacket  Lister  (Pro- 
gram 5),  all  output  is  in  uppercase. 


Program  1:  Commodore 
Jacket  Lister 

Fof  Instructions  on  entering  this  iistlng.  pieose 
refer  to  "COMPUTEi's  Guide  to  Typing  In 
Programs"  in  this  issue  of  computei. 

GD    10    REM    *****    PROGRAM    SET    UP 

****** 

RH    20    DIHTB?(144) :DIMAB$(144) 
KR    30    PBINT"(CLR}|71":P0KE5328 

0,X4:POKE532B1,6 
PS    40    PRINT" (4    DOWN  3(9    RIGHT} 

{RVS){WHT}    WHAT    IS    TODAY 

■S    DATE:     ":PRINT: 
EK    50    PRINT" (5    RIGHTj[RVS} 

[WHT]    enter    HO/DY/lfR  THE 

N    <RETURN>    I  OFF  J" 
MD    60    PRINT"{2    DOWN)";SPCCll); 

: INPUT    DTS 
QA    70    PRINT"(CLR3 (4    DOWN} 

19    RIGHT] (RVS}{CYN}    UPPE 

R  AND    LOWER   CASE    7    "sPRI 

NTs 
RC    80    PRINT "t 10    RIGHT} {RVSj 

{CYNJ     [WHT}Y{CYNj    OR 

{whtJnIcyh)  then  <return 

>  ( OFF  J " 

CB  90  PRINT" (2  D0WN)";SPC(11) ; 
: INPUT  CC$ 

PR  100   IF  cc5="y"  then  CM5=CHR 

$(17): rem    LOWER    CASE 
RC    110    IF    CC5<>"Y"    THEN    CH$=CH 

R5(145)!REM    UPPER    CASE 
OF    120    PRINT"{CLR)E73":POKE532 

80,14:POKE532ai,6 
SX    130    PRINT" {4    DOWN} [RIGHT} 

lYELlWHICH    DISK    DRIVE    D 

O    YOU    WANT    TO    LIST?" 
JC    140    PRINT" (2    DOWN}";SPC(ll ) 

; : INPUT    DI 
MG    150    REM    *****    READ    DISK    MEN 

U    ****** 

XF  160  PRINT" {CLR) (CYN}"!P0KE5 
3280,2:POKE53281,0 

HK  170  PRINT"(6  DOWN] {3  RIGHT) 
t  RVS )  ( 2  SPACES  JREADING 
{2  SPACES} DATA  :  PLEASE 
standby! 2  SPACES}" 

ED  180  GOSUB1630 

JD  190  OPENS, D1,0,"?0"!FORC=1T 
08:GET#8,A5!NEXT:C=lsDN 
5="":FDRC=1T016 

JA  200  GET#8,A$:DN5=DN5+A5!NEX 
T:GET#8,A$:GET#8,A5:DN5 
=DN$+"l2  SPACES} ":GET#8 
,A5 


ED 

210 

GE 

220 

FH 

230 

PH 

240 

FP 

250 

MC 

260 

BA 

270 

FA 

280 

RR 

290 

RD 

300 

XC 

310 

GH 

320 

JE 

330 

CA 

340 

QX 

350 

JS 

360 

HA 

370 

GS 

380 

JB 

390 

QF 

400 

BM 

410 

MA 

420 

SJ 

430 

AA 

440 

GR 

450 

MA 

460 

EP 

470 

JS 

480 

FS 

490 

XA 

500 

JE 

510 

FS 

520 

KC 

530 

RE 

540 

DC 

550 

JG 

560 

PD 

570 

RG 

580 

AD 

590 

MK 

600 

FX 

610 

CJ 

620 

QA 

630 

HC 

640 

JE 

650 

KS 

660 

DN5=DN5+A$!GET#8,A?iDN5 

=DN$+A$:GET#8,A9:GET#8, 

A? 

GET#8,A$:GET#8,A$:C=1 

F0RA=1T04 :GET*8 , A? :NEXT 

!PN?=""iTY?="" 

GET#8,A$:IFST<>0THEN310 

IFA?=""THEN310 

IFASC (A? ) <>  34THEN240 

GET#8,A5:IFASG(A$)<>34T 

HENPN$=PN?+A? :GOTO270 

GET*8,A5iIFASC(A$)=32TH 

BN2S0 

TY?=TY$+A5 :GET#8,A5 !IFA 

5<>""THEN290 

TB? (C )=PN5 !C=C+1 ! IFST=0 

THEN230 

CLOSES 

IF  OSS  THEN  GOSUB1310 

REM  ***  ALPHABETIZE  LIS 

TING  *** 

PRINT "(CLR) (CYN}":POKE5 

3280,4:POKE53281,0 

PRINT "{6  DOWN} (3  RIGHT} 

lRVS}{2  SPACES isORTING 

{2  SPACES} DATA  :  PLEASE 

STANDBY (2  SPACES}" 
GOSUB1570 

Z $  =  "ZZZZZZZZZZZZZZZZ"  :  E 
=  1 

FORA=lTOC-l sC?=2? !FORB= 
1T0C-15IFC5<TB?(B)THEN4 
00 

C5=TB5{B)tD=B 
NEXT : ABS ( E )=CS : E=E+1 :TB 
S(D)=Z5:NEXT 
REH{2  SPACES}****  JACKE 
T  NAME  =  NS$  *** 
NS5="*****f3  spaces3ref 
ERENCE{3  spaces}*****" 
REM  *****  PRINT  ALPHA  L 
1ST  ***** 

PRINT" tCLR)":POKE  53280 
, 5:POKE532ai,0 
PRINT"(6  DOWN) (2  RIGHT} 
{RVSJ [2  SPACES) PRINTING 

JACKET  :  PLEASE  STANDB 
Y{2  SPACES)" 
GOSUB1510 

DD=0jCD=INT(C/2) :0PEN1, 
4 

FOR  CR=1T02 

PRINT#1,CHR?(10) :REM    LI 
ME FEED 
NEXT    CR 
TL?="i03" 

PRINT#1,TAB(2); :F0R    TL= 
1    TO   72:PRINT#1,TL5; :NE 
XTTL: PRINT* 1, "    CUT" 
GOSUBI130 :GOSUB1140 
GOSUB1130 

PRINT#1,CHRS(14) ;NS5;CH 
R5C15);:REM    14    DOUBLE   W 
IDTH    15    SINGLE 
GOSUB1140 
FOR    LE=1T02 
GOSUB1130:GOSUB1140 
NEXT    LE 
GOSUB1130 

PRINTtl,TAB(l5),-CM$;DN5 
;SPC(5)  ,-DT?;:GOSUB1140: 
GOSUBH60 
IF    C>32    THEN790 
REM    **    PRINT    :     <    32    PRO 
GRAMS    ** 

F0RDD=1T0CD: GOSUBl 130 
PRIHT*1,CHR5(16);CHR?(5 
0) ;CHR${48);CM?rAB?(DD) 
jsREM    PRINT    HEAD    POSITI 
ON 

PRINT#1,CHR5(16);CHR$(5 
2 ) ; CHRS ( 53 ) ; CM? ; AB$ ( CD+ 
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COMPUTE!  s  First  Book  of  the 
Commodore  128 

A  spectacular  collection  of  articles  and  programs 
exclusively  for  the  Commodore  128  In  128  mode. 

Edited 

The  editors  at  COMPUTE!  Publications  have  col- 
lected some  of  the  best  games,  programs,  and  tu- 
torials for  the  Commodore  128  from  COMPUTE!  and 
COMPUTEI's  Gazette,  plus  some  never-before- 
published  articles  and  programs.  Learn  how  to  cre- 
ate windows,  program  sound,  and  make  disks 
autoload.  You'll  even  find  a  map  of  all  the  important 
memory  locations.  There's  something  for  every  128 
user.  All  programs  run  in  128  mode.  A  disk  is  avail- 
able which  includes  programs  in  ttie  book,  $12. 95. 

$  1 4.95      ISBN  0-87455-059-9 
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Electronic  Computer  F>rojects 
Learn  how  to  build  all  kinds  of  new  devices  to 
Interface  with  your  computer  from  Inexpensive, 
available  parts. 

For  the  Commodore  64,  128,  VIC,  and  any  elght-btt 
Atari  personal  computer. 
Soori  Sivakumaran  ^^Bl 

This  introduction  to  digital  electronics  and  computer^"! 
interfacing  is  the  easy  way  to  learn  how  computers 
interact  with  the  outside  world.  Using  a  Commodore  ^ 
64,  1 28,  VIC,  or  any  eight-bit  Atari  computer  and 
Electronic  Computer  Projects,  you'll  be  guided 
through  the  steps  to  building  a  joystick,  light  pen, 
game  paddle,  and  numerous  other  devices.  And 
since  each  project  is  independent  from  the  others, 
you  can  choose  only  those  projects  that  interest  you. 
All  the  projects  can  be  built  at  home  and  most  re- 
quire fewer  than  half  a  dozen  parts. 

$9.95      ISBN  0-87455-052-1 


1 


Visit  your  local  book  or  computer  store  for  these  new  titlesL  Or  order  directly  frofti'  I 
COMPUTE!  Books.  Call  toll-free  800-346-6767  (in  NY  212-887-8525)  or  write  |  I  i  M 
COMPUTE!  Books,  P.O.  Box  5038,  F.D.R.  Station,  New  York.  NY  10150.       j 

Please  include  $2.00  per  book  ($5.00  air  mail)  for  shipping  and  handling.  NC  residents 
add  4.5  percent  sales  tax.  Allow  4-6  weeks  from  receipt  ofiorder  for  ^^livery. 


COMPUTE!  Publicationsjnc.® 

Pari  o'  A&c  C:i'^'.^r'er  Vagornes,  're  ^^^r 


One  of  -ne  ABC  PuW.snr.o  Cof^icon.es 


COMPUTE!  books  are  available  in  the  U.kL  Europe.'the  Middle 
East,  and  Africa  fronn  Holt  Saunders,  Ltd.,'  I  St.  Anne's  Road, 
Eastbourne,  East  Sussex  BN21  5UN.  England,  and  in  Canada 
from  McGraw-Hill,  Ryerson  Ltd.,  330  Progress  Ave..  Scarborough, 
Ontario,  Canada  IVIIP  2Z'5.  '     ,  '     i     !    I 


DO); :GOSUB1140 

SA    1130    PRINT#1,"{2    SPACES }iJ3 

XF    1510    REM(2    SPACES )#####    DIN 

MC   670 

REM    PRINT    HEAD    POSITION 

17    SPACES )BG3*";:RETUR 

G    #!### 

AE    680 

NEXT    DD 

N 

HJ    1520    H=54273:S=S4278:W=5427 

KB    690 

GOSUBl 1 30 :GOSUB1140 : 00= 

EH    1140    PRINT* 1,CHR5( 16); CHR? ( 

6:V=54296 

OO+l 

54):CHR5(52),-"*SM3 

XQ    1530    FOR   AA=1T03 

FR    700 

IF    DD>17    THEN720 

n    SPACES }i Li": RETURN 

CE    1540    POKEV,15:POKEH,40:POKE 

JF    710 

GOTO690 

KE    1150    REM    PRINT    HEAD    POSITIO 

S-1,9:P0KEW, 17 :FORT=lT 

XB    7  20 

GOSUB1220 

N 

O500:NEXTT 

OF    7  30 

FOR    SL=1T029 

JB    1160    PRINTtl,"l2    SPACES) iJl 

AK    1550    FORT=H-1TOV:POKET,0:NE 

FK    740 

GOSUB1200:GOSUB1210 

(7    SPACES )|gE*"; 

XT 

AE    750 

NEXT    SL 

HQ    U70    PRINT#1,TAB(15);" 

SX    1560    NEXTAA: RETURN 

FE    760 

GOSUB1240 

E20    U3"; : 

JD    1570    REMS2    SPACES)#####    BIN 

HG    770 

GOSUB1260 

JS    1180    PRINT* 1,CHRS( 16 ); CHR? ( 

G-BONG    ##### 

SE    780 

REM    **    PRINT    :     >    32    PRO 

54);CHR?(52) ;"*iM% 

JX    1580   H=5427  3:S=54278:W=5427 

GRAMS    ** 

17    SPACES )iLi": RETURN 

6:V=54296 

BB    790 

FQRDD=1T016 :GOSUB1130 

FB    1190    REM    PRINT    HEAD    POSITIO 

DE    1590    POKEV,15:POKES-1,88:PO 

RX    B00 

PRI NT# 1 , CHR?  C 16 ) ; CHR? ( 5 

N 

KES, 89: POKEW- 1,1 rFORU- 

0) ;CHR?(48);CM$;AB5(DD) 

HP    1200    PRINT#1,"U0    SPACES) 

1T06: POKEW, 65 

; :REM   PRINT    HEAD    POSITI 

^Ji";:RETURN: 

XR   1600    POKEH,20:FORT=0TO120:N 

ON 

CS    1210    PRINT*1,CHRS(16);CHR5( 

EXT 

QH   810 

PRIKIT#1,CHR${16)  ;CHR$(5 

S4);CHR?(53);"ELi":RET 

BG    1610    POKEW, 64:POKEH,50:POKE 

2 ) r  CHR5 ( 53 ) ; CM$ ; ABS ( DD+ 

URN: REM   PRINT    HEAD    POS 

W,65:FORT=0TO120:NEXT: 

16); :GOSUB1140 

ITION 

POKEW, 64: NEXT 

KF   820 

REM    PRINT    HEAD    POSITION 

GS    1220    CL$="C" 

KA    1620    FORT=H-1TOV:POKET,0:NE 

CR    830 

NEXT    DD 

BD    1230    PRINT#1,TAB(2);:F0R    CL 

XT : RETURN 

BB   840 

GOSU  Bl 1 3  0 : GOSU  Bl 140 

=1    TO    72:PRINT#l,CL5r : 

JD    1630    REM{2    SPACES)#####    BEL 

GJ    850 

GOSUB1220 

NEXTCL : P  RI NT  # 1 ,  "    FOLD " 

LS    ##### 

HG    860 

GOSUB1200 :GOSUB1210 

: RETURN 

XS    1640    V=54296:W=54276:POKEW+ 

FM    870 

CX=(C-3  3)/2:CZ=CX+32 

XR    1240    LLS="iU3" 

1,96 

QD    880 

FORDD=33TOCZ:GOSUB1200 

DS    1250    PRINT*1,TAB(10) ; :FOR    L 

BQ    1650    POKEW+1,9 

BE    890 

PRINT#1,CHR$(16);CHR$(5 

L=l    TO    56:PRINT#1,LL$; 

DM    1660    POKEV,15sFORL=lT05:POK 

0) rCHR$(43) ;CM$;AB5(DD) 

:KEXTLLtPRINT#l,"    CUT" 

EW,21 

; :REM    PRINT    HEAD    POSITI 

:  RETURN 

PX    1670    POKEW-3,99*HNDCl) :POKE 

ON 

MR    1260    PRINT*1:F0R   CR=1T03 

W+11,99*RHD(1) 

JQ    900 

PRINT#1,CHR5(16) ;aiR$(5 

KM    1270    PRINT#1,CHR$(10) 

XK    1680    FORT=1TO600!NEXT: POKEW 

2 ) ; CHR5 ( 48 ) ; CM? ; AB$ ( DD+ 

DG    1280    NEXT    CR:CLOSE1:GOTO980 

,20iNEXT 

CX); ;GOSUB1210 

DE    1290    REM    **    MENU    TOO    LONG    T 

XD    1690    PORI=W-4TOV:POKEI,0:NE 

AD    910 

REM    PRINT    HEAD    POSITION 

O    LIST    ** 

XT: RETURN 

GC   920 

NEXT    DD 

FS    1300    REM    **    CAN    ONLY    LIST    8 

XH    930 

GOSUB1200 :G0SUB1 210 : DD= 
DD+1 

8    PGHS    ** 
HR    1310    PRINT"(CLR)iCYN}":POKE 

Program  2:  Jacket  Lister  for 

JB   940 

IF    DD>60    THES960 

53280,1 :POKE53281,7 

Atari  400,  800,  XL,  and  XE 

FD    950 
AG    960 

GOTO930 

GOSUBl 240: GOSUBl 260 

BJ    1320    PRINT" [5    DOWN ) " ;SPC( 10 
);"lCYN)TOO[2    SPACES )H 

Version  by  Kevin  Mykytyn,  Editorial 

RG    970 

REM    ***    CLOSING    REMARKS 

ANY  I  2    SPACES)  PROGRAMS" 

Programmer 

*** 

CA    1330    PRINT    SPC(10);"(CYN}    T 

For  instructions  on  entering  this  listing,  please 

PA    980 

PRINT"{CLR) [ CYN )": POKES 

O    LIST    ON   JACKET" 

refer  to  "COMPUTEi's  Guide  to  Typing  in 

3280,9:POKE53281,0 

DR    1340   GOSUB1460 

Programs"  in  ttris  issue  of  COMPutei. 

CC    990 

PRINT" (6    DOWN) {2    RIGHT) 
(RVS}(2    SPACES) ALPHABET 

JG    13  50    PRINT" {3    D0WN)";SPC(8) 
;"tRED}PRINT{2    SPACES) 

DC  10    DIM    DATE»(12)  ,UPPER$  (  I 
) , K* (1) , DN»(10) , DIR* ( 1 

I  ZED    DISK    COVER    COMPLET 

those! 2    SPACES }THAT 

7*88) , T«(20) .NAME* I2h) 

MH    1000    GOSUB1460 

QC    1010    PRINT "[5    DOWN} 

[2    RIGHT) (2    SPACES} DO 
(space) YOU    WANT    ANOTHE 
R    DISK    COVER    : " 

RX    1020    INPUT" [6    RIGHT) 'Y'    OR 
lSPACE}'N'     THEN    <RETUR 
N>";AG? 

FC    1030    FOR    DD=0TO144:ABS(DD)= 

(2    SPACES) FIT?" 
MC    1360    PRINT    SPC(9) ;"( CRVS}Y 

{OFF}    OR    {RVS)N{0FF}    T 

HEN    <  RETURN >) 
HE    1370    PRINT"(2    DOWN) "; SPC( 15 

, SPCt (80) 
FB  15     FOR    A=l     TO     a0:SPCS(A,A 
)="     '■:NEXT     A:NSME*  =  "«» 
««*     REFERENCE     DISK     *«* 
t«":REM    THIS    MUST     BE    2 

)r;INPUT    AW5 
FX    1380    IP    AW?<>"Y"    THEN1070 
XR    1390    C=88! RETURN 

6     CHARACTERS 
Jh  20    OPEN    #4,4,0,  "K:  " 
to  100    GRAPHICS    0:POKE    710,1 

SG    1400    REM (2    SPACES}****    SOUN 
D    SUBROUTINES    *** 

5:PQKE    709,0:POKE    712 
,35 

:neatuu 

SA    1410    REH{2    SPACES )*####    BUZ 

FO110     POSITION     10,6:PRINT     " 

BX    1040    IF    AG5<>"Y"THENI0V0 

ZER    ##*## 

■n:r:k  ^  t.-^  f  il  >T:VU.-H>T:kd3 

EP    1050    PRINT"[CLR)i7|":POKE53 

KR    1420    POKES, 240 

■  " 

2a0,14:POKE53281,6:GOT 
O70 
FP    1060    REM    **    TERMINATE    PROGR 

GF    1430    H=54273:S=54278:W=5427 
6:V=54296 

BK    1440    POKEV,15:POKEH,5:POKEW 

06  120    POSITION    6,B;PRINT     "■ 

^^^^■EMTER     MO,'DV/'VR     THCM     <■ 

hl^Vl'M^M" 

AM    ^^ 

,33: FORT=0TO500 :NEXT 

PH  130    POSITION     15,  13:  INPUT 

HC    1070    PRINT"tCLRj lCYNJ":POKE 

CP    1450    FORT=H-1TOV:POKET,0:NE 

DATE*:PRINT     "<CLEAR>" 

53280, 7:POKE53281, 11 

XT: RETURN 

: POKE    752, 1 

BP    1080    PRINT" 18    DOWN} 

QM    1460    REM  1 2    SPACES )#####    DON 

6fl 160     PRINT     " CCLEAR>":POSIT 

18    RIGHT) tWHTJ IRVSj 

G    ##### 

ION    2,5:PRINT     "WHICH 

(2    SPACES) PROGRAM    TERM 

MG    1470    H=54273:S=5427a:W=5427 

DISK    DRIVE    DO    YOU    WAN 

INATED     i {2    SPACES}" 

6:V=54296 

T    TD    LIST": POSITION     1 

FJ    1090    GOSUB1410 

QG    1480    POKES-1,9:POKEH,36:POK 

7,7:PRINT     "(1-9)" 

EJ    1100    FOR   Vn'=lTQ    1000:NEXT    W 

ES+9 , 16 :POKEV , IS !FORU= 

F£  170     BOSUB     1000:  IF    K»<  "  1  " 

T 

1T04 : POKEW, 21 :FORT=0TO 

DR    K*>"9"     THEN     170 

GE    1110    PRINT "[CLRJE 73 ":POKE53 

500 

HO  180     DN»="D1  :«.«":  DN»(2,  2) 

280,14:POKE53281,6rEND 

EM    1490    NEXT : POKEW, 20 :NEXT 

=  K» 

RS    1120    REM    ***    DISK    JACKET    OU 

KJ    1500    FORT=H-1TOV:POKET,0:NE 

JP 190     PRINT     "<CLEAR>":P0S1T 

TLINE    *** 

XT : RETURN 

ION    3,8:PRINT     "^EHIE 
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[iraHS^"  iPQKE  7  12,136 

IF  200  TRfiP  220:  FILE=1  :aPEN 
«1  ,6, 0, DN* 

F?(210  INPUT  #1,T«:DIR«  C  CFIL 
E-l)tl7+l,FILE*17) =T« 
: FILE=F1LE+I : IF  FILE< 
90  THEN  210 

BJ  220  FILE  =  FILE-2:TRAP  6500 
0:CLaSE  «1:IF  PEEK(19 
5)=136  DR  FILE=SB  THE 
N  250 

LG230  PRINT  "  tCLEAR  J  "  :  PDS  I  T 
ION  12,11: PRINT  "DISK 
ERROR  #";PEEK(195) 

?»240  POSITION  B,13:PRINT  " 
PRESS  ANY  KEY  TO  RETR 
Y":BOSUB  1000:SDTO  19 
0 

EH  250  POSITION  5,  8:  PRINT  "3 
tmiBin?"  :  POKE     712,200 

HJ  260     e=INT(FILE/2) 

GH  265  N  =  0:FDR  1  =  1  TO  FILE-G 

CC  270  IF  DIR*  <  (  I-l  )  *17+1  ,  I* 
17)<=DIR» ( ( I+G-1 ) tl7+ 
1,  (I+B)  tl7>  THEN  290 

BJ  280  T*  =  DIR*  (  (I-l  )  H7  +  1  ,  I» 
17> : DIR* ( (I-l ) «17+1 , I 
«17) =DIR* ( ( I+G-1) t 17+ 
1,  (  I+B) «17)  :DIR»  (  (I+G 
-l)tl7+l, (I+B)*17)=T* 
:  N=l 

HE  290  NEXT  I:  IF  N=l  THEN  26 
5 

ID  300  8=INT  (8/2)  :  IF  G>=1  TH 
EN  265 

flO310  POSITION  2,eiPRINT  "■ 
■d:*<Jt*<.-|.^l.l.l!<  M-J» 
l^:i--1i^*<  I  I  I  I  ^  :  POKE 
712,104:DPEN  #1,4,4," 
p.  ., 

BH  320  FOR  A=l  TO  3:PRINT  #1 
; CHR» ( 13) :NEXT  ft 

BB  330  BOSUB  3070:  PRINT  #1;" 
CUT" 

IIH340  GOSUB  3000:  BOSUB  3010 
:GOSUB  3020 

NO350  GOSUB  3000:PRINT  #1;C 
HR$ (14! ;NAME*;CHR» (20 
);:G05UB  3020:REM  14 
IS  DOUBLE  WIDTH,  20  I 
S  NORMAL  WIDTH 

HI  360  FDR  A=l  TO  2:  GOSUB  30 
00:(3OSUB  3010:GOSUB  3 
020:NEXT  A 

HL  370  GOSUB  3000:PRINT  #1;S 
PCt ( 1 , 22) ; DftTE«;SPC»C 
1,30-LEN(DATE*) ) ; : GOS 
UB  3020 

HD  380  CD=INT  (FILE/2)  !  IF  FIL 
E>32  THEN  480 

Efl  390  FOR  DD=1  TO  CD:GDSUB 
3000 

JK  400  PRINT  #1  ;  SPC»  (  1,B)  ;DI 
R$( (DD-1)»17+1,DD«17- 
3) iSPC» (1,9); DIR» ( (CD 
+DD-1)*17+1, (CD+DD)«1 
7-3) ;SPC$ (1,7); 
GOSUB  3020:NEXT  DD 
GOSUB  3000; BOSUB  3010 
:GOSUB  3020:DD=DD+1 
IF  DD>17  THEN  450 
GOTO  420 

GOSUB  3070:PRINT  #lj" 
FOLD" 

CJ  460  FOR  SL=1  TO  29:  BOSUB 
3050: GOSUB  3060: BOSUB 
3065 

LE  470  NEXT  SL:  GOSUB  3090:PR 
INT  #1 ; "  CUT" ! GOTO  20 
00 

AA4B0  FDR  DD=1'  TO  16:Q0SUB 
3000 


HL  410 

U   420 

BH  430 

SH  440 

KC  450 

BC  560 

HC  570 

CCSB0 

Kf  390 

H»  1000 

KA  2000 

PL  20  10 

BD490  PRINT  #  1  ;  SPC*  (  1  ,  S  )  ;  D  I 
R» ( (DD-1 ) »17+1 ,DD»17- 
3) 5SPC*(1,9) ;DIR« ( (16 
+DD-1)*17+1, (16+DD)tl 
7-3)  ; SPC*  < 1,7)  ; 
NL  500  GOSUB  3020:  NEXT  DD 
HE  510  GOSUB  3000:  GOSUB  3010 

: GOSUB  3020 
CH  520  QOSUB  3070SPRINT  #  1  ;  " 
FOLD":SOSUB  3050:BDS 
UB  3060: BOSUB  3065 
FA  530  CX  =  INT  (  (FILE-33) /2)  :  C 

Z*CX+32 
61(540  FOR  00=33  TO  CZ  :  BOSUB 

3050 
FB  550  PRINT  #  1  ;  SPC»  (  1  ,  9  )  ;  D  I 
R» ( (DD-1) »17+1 , D0«17- 
3)  ; SPC* ( 1,6) ; DIR* ( (DD 
+CX-1)«17+1, (DD+CX) »1 
7-3) ; SPC«( 1,11);"!" 
NEXT  DD 

BOSUB  30S0IGOSUB  3060 
sBDSUB  3065:DD"DD+1 
IF  DD<61  THEN  570 
BOSUB  3090:PRINT  #1;" 
CUT"! GOTO  2000 
POKE  752, 1:QET  #4,K; 
K»=CHR» (K) : RETURN 
FDR  CR=1  TO  3:PRINT 
«1 ;CHR« (13) : NEXT  CR: 
CLOSE  #1 

PRINT  " tCLEftR>": PDSI 
TION  3,10:PRINT  "ALP 
HABETIZED  DISK  COVER 
COMPLETE" 
BL  2020  POSITION  3,13:PR1NT 
"DO  you  WANT  ANOTHER 
DISK  COVER?" 
DH  2030  BOSUB  1000:  IF  K«="y" 

THEN  RUN 
RE  2040  IF  K»<>"N"  THEN  2030 
(12050  PRINT  "{CLEAR} 

12    DOWN>BYE" : POKE  75 
2, 0: END 
OE  3000  PRINT  #1;  "   ! 

ta  SPACES! i t"s iRETUR 
N 
FE3010  PRINT  #1;SPC»(  1  ,  52)  ; 

! RETURN 
eL  3020  PRINT  #1;"«! 

<B  SPACES> ! " : RETURN 
JD  3050  PRINT  #1  ;  " 

<10  SPACES> ! " ; :RETURN 

FL  3060  PRINT  #  1  ;  SPC*  (  1  ,  54  )  5 

! RETURN 
BJ  3065  PRINT  #  1  ;"!":  RETURN 
BH  3070  PRINT  #1;"    "  ;  :  FOR  A 

-1  TO  72:PRINT  #1 j "- 

"; !NEXT  fl:RETURN 
BJ  3090  PRINT  #1  ;  " 

<11  SPACES> "; :FOR  A-1 
TO  54! PRINT  *1 J "-"; 

:NEXT  A!RETURN 


Program  3:  Apple  II  Jacket 
Lister 

Version  hy  Tim  Midkiff,  Editorial 

Programmer 

For  instructions  on  entering  this  listing,  pleas© 

refer  to  "COMPUTEI's  Guide  to  Typing  In 

Prograrrvs"  in  ttils  Issue  of  computei. 

79  10  REM  **««*  PROGRAM  SET  UP  * 
*t«t 

il  20  DIM  TB*<144),AB»(144),WS(1 

000) 
Cft  30  HOME  :  PRINT  :  PRINT  "WHAT 
IS  TODAY'S  DATE  (MO/DY/YR 

)";:  INPUT  DT* 
5F  40  HOME  :  PRINT  :  PRINT  "WHIC 


H  DRIVE  DO  YOU  WANT  TO  LIS 
T  (1/2)"; :  INPUT  Dl 
K   50  IF  Dl  <  1  OR  Dl  >  2  THEN  4 

0 
2B  60  REM  *ttt*  READ  DISK  MENU  * 

***t 
37  70  BOSUB  1320:  HOME  :  PRINT  " 
READING  DATA  :  PLEASE  STAN 
DBY" 
78  80  FDR  I  =  76B  TO  779:  READ  A 
:  POKE  I, As  NEXT  :P1  =  0:P 

2  =  0:A»  =  C  =  0 

il  90  PI  =  WS(0)  -  WS(0)  +  PEEK 
(131)  :P2  =  WS(0)  -  MS(0)  + 
PEEK  (132) 
3*  100  POKE  769,  PI-  POKE  770,  P2 
K    110  POKE  54,0:  POKE  55,3:  PDK 
E  56,11:  POKE  37,3s  CALL 
1002 
?ft  120  PRINT  CHR»  ( 4 );" CATALOG , D 

";D1 
fB  125  PRINT 
15  130  POKE  768,173:  POKE  769, PI 

:  POKE  770, P2 
41  140  POKE  54,11:  POKE  55,3r  PQ 
KE  56,0!  POKE  57,3!  CALL 
1002 
71  150  FDR  1  =  1  TO  4!  INPUT  A»: 

NEXT  iC  "  1 
BB  160  INPUT  AS:  IF  A*  =  ""  THEN 

170 
CZ  165  IF  LEFT*  (A»,l)  =  "«"  THE 
N  A*  °^  RIGHT*  (A«,  LEN  (A 
«)  -  1) 
3B  167  TB*(C)  =  MID*  (A*,7,1B):C 

=  C  +  1:  GOTO  160 
D7  170  POKE  54,240:  POKE  55,253: 
POKE  56,27:  POKE  57,253: 
CALL  1002 
3C  180  FOR  I  =  1  TO  C  -  1:  PRINT 

TB*(I):  NEXT 
71  190  DATA  141,0,64,238,1,3,208 

,3 
ES  200  DATA  238,2,3,96 
CF  340  IF  C  >  BB  THEN  GOSUB  1260 
12  350  REM  »»*  ALPHABETIZE  LI  ST  I 

NB  *** 
n   360  GOSUB  1320:  HOME  :  PRINT 
"SORTING  DATA  :  PLEASE  ST 
ANDBY" 
«  370  Z*  =  CHR*  (255) :E  =  1 
7D  380  FDR  A  =  1  TO  C  -  1 :  C* 
*:  FOR  B  =  1  TO  C  -  1; 
C*  <  TB»(B)  THEN  400 
H   390  C*  =  TB*(B) :D  =  B 
52  400  NEXT  :AB*(E)  =  C*:E  = 
liTB*<D)  -  Z«:  NEXT 
17  410  REM  «***  JACKET  NAME 

*    ttt* 
iD  420  NS*  =  "tt«»*    REFERENCE 

tt**«" 
42  430  REM  t»»»»  PRINT  ALPHA  LIS 

T  **»«« 
CB  440  GOSUB  1320:  HOME  :  PRINT 
"PRINTING  JACKET  :  PLEASE 
STANDBY" 
K   450  DD  =  0:CD  =  INT  (C  /  2)  : 
PRINT  CHR*  (4);"PR#1"!  PR 
INT  CHR*  (9) i "80N" 
ES  460  FOR  CR  =  1  TO  2 
6B  470  PRINT  CHR*  (10):  REM  LINE 

FEED 
(C  480  NEXT 
97  510  TL*  =  "-" 

7S  520  PRINT  TAB(  4);:  FOR  TL  = 
1  TO  71:  PRINT  TL»; :  NEXT 
:  PRINT  "  CUT" 
2D  530  GOSUB  1100:  GOSUB  1110 
CB  540  GOSUB  1100 
Di  550  POKE  36,  INT  (40  -  LEN  (N 

S*)  /  2):  PRINT  NS*; 
D3  560  GOSUB  1110 
A9  570  FDR  LE  =  1  TO  2 


=    Z 
IF 


E    + 


NS 
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37  580  B05UB  1100:  60SUB  1110 

(F  590  NEXT 

C4  600  G05UB  1100 

Dl  610  POKE  36,36:  PRINT  DT*;  :  G 

OSUB  1110:  GQSUB  1120 
F3  620  IF  C  >  32  THEN  790 
M   630  REM  »**  PRINT  :  <  32  PROG 

RAMS  «t« 
1?  640  FOR  DD  =  1  TO  CDs  GDSUB  1 

100 
96  650  POKE  36,20:  PRINT  AB»(DD) 

* 
BB  660  POKE  36,45:  PRINT  AB*(CD 

+  DD); 
Di  670  GOSUB  1110 
IE  680  NEXT 
63  690  GOSUB  1100:  BOSUB  1110:DD 

=  DD  +  1 
Afl  700  IF  DD  >  17  THEN  720 
IE  710  GOTO  690 
E3  720  BOSUB  1170 
21  730  FOR  SL  =  1  TO  29 
«  740  GOSUB  1150:  GDSUB  1160 
19  750  NEXT 
F!  760  BOSUB  1190 
D?  770  30SUB  1210 
(2  780  REM  ***  PRINT  !  >  32  PROG 

RAMS  t«* 

41  790  FOR  DD  =  1  TO  16:  GOSUB  1 

100 
BE  H00  POKE  36,20:  PRINT  AB»  (DD) 

? 
92  810  POKE  36,45:  PRINT  AB«(DD 

+  16); 
C£  820  BQ5UB  1110 
li  S30  NEXT 

32  840  GOSUB  1100:  GOSUB  1110 
EC  B50  GOSUB  1170 
9fl  860  GOSUB  1150:  GOSUB  1160 
77  870  CX  =  tC  -  33)  /  2:CZ  =  CX 

+  32 
Fl  BB0  FOR  DD  ~    33  TO  CZ:  GDSUB 

11S0 
Al  890  POKE  36,20:  PRINT  ABt(DD) 

t 

li  900  POKE  36,40:  PRINT  ABt(DD 

+  CX); 
El  910  GOSUB  1160 
13  920  NEXT 
11  930  BOSUB  1150:  BOSUB  1160:DD 

=  DD  +  1 
2E  940  IF  DD  >  60  THEN  960 
113  950  GOTO  930 

i3  960  GOSUB  1190:  GOSUB  1210 
IF  970  REM  «*«  CLOSING  REMARKS  * 

tt 
34  9B0  PRINT  CHR»  (4)  ;  "PR#0" 
3«  990  GOSUB  1320:  HOME  J  PRINT 

"ALPHABETIZED  DISK  COVER 

COMPLETE" 
13  1000  PRINT  :  PRINT  "DO  YOU  WA 

NT  ANOTHER  DISK  COVER  {Y 

/N)";:  INPUT  AG* 
77  1010  FDR  DD  =  0  TO  144:AB$CDD 

)  =  NEXT  :  RESTORE 

(B  1020  IF  AB»  <  >  "Y"  THEN  1030 

11  1030  GOTO  40 

5«  1040  REM  tt  TERMINATE  PROGRAM 

(t 
a  1050  HOME  :  PRINT  "PROGRAM  TE 

RMINATED" 
if    1060  GOSUB  1320 

AB  1070  FOR  WT  =  1  TO  1000:  NEXT 
FF  1080  HOME  :  END 
IS  1090  REM  »tt  DISK  JACKET  OUTL 

INE  t*t 
FE  1100  PRINT  "   I         !  t";: 

RETURN 
F9  1110  POKE  36,64:  PRINT  "t  I 
i":  RETURN 

42  1120  PRINT  "   !         !  t"; 

Ft  1130  POKE  36,29:  PRINT  " 


li  1140  POKE  36,64:  PRINT  "t  ! 

!":  RETURN 
55  1150  PRINT  "  !  ";:  RE 

TURN 
IC  1160  POKE  36,66:  PRINT  "I":  R 

ETURN 
W   1170  CL*  =  "-" 

4E  1180  PRINT  TAB<  4);:  FOR  CL  = 
1  TO  71:  PRINT  CL«; :  NE 

XT  :  PRINT  "  FOLD":  RETU 

RN 
7B  1190  LL*  =  "-" 
D3  1200  PRINT  TAB(  12);:  FDR  LL 

•>  1  TO  55:  PRINT  LL*! !  N 

EXT  :  PRINT  "  CUT":  RETU 

RN 
F9  1210  PRINT  :  FOR  CR  =  1  TO  3 
B8  1220  PRINT  CHR*  (10):  REM  LIN 

EFEED 
9C  1230  NEXT  :  GOTO  980 
F2  1240  REM  t*t  MENU  TDD  LONG  TO 

LIST  *»« 
7C  1250  REM  tt*  CAN  ONLY  LIST  BS 

PGMS  ttt 
IF  1260  BDSUB  1320:  HOME  :  PRINT 
"TOO  MANY  PROGRAMS  TO  L 

1ST  ON  JACKET" 
F4  1270  PRINT  :  PRINT  "PRINT  THD 

SE  THAT  FIT  (Y/N)";:  INP 

UT  AM* 
2C  1280  IF  AW*  <  >  "Y"  THEN  1050 
8B  1290  C  =  88:  RETURN 

47  1300  RE 

48  1310  REM  t'tttt  SOUND  ROUTINE 

ttttt 
AB  1320  FOR  I  =  1  TO  10:  A  =  PEEK 
(  -  16336) :  NEXT  :  RETU 
RN 


Program  4:  ProDOS 
Modifications  for  Program  3 

Refer  to  Ihe  article  for  Instructions  on  adding 
tties©  replacement  linos. 

B3  80  D»  =  CHR*  (4):  PRINT  D*;"P 
REF1X,D";D1:  PRINT  D*; "PRE 
FIX" 
a   90  INPUT  P* 
C3  100  PRINT  D*f"DPEN  ";P»i",TDI 

R" 
31  110  PRINT  D»;  "READ  " ; P* 
63  120  FOR  I  =  1  TO  3:  INPUT  AS; 

NEXT  :C  =  1 
DC  130  INPUT  A*:  IF  LEN  (A*)  >  0 
THEN  TB*(C)  =  MID*  (A«,2 
,15):  PRINT  TB«(C)!C  =  C 
+  1:  GOTO  130 
79  140  PRINT  D*;  "CLOSE  " ;  P» 


Program  5:  IBM  PC/PCjr 
Jactcet  Lister 

Version  by  Tim  Midkiff,  Editorial 

Programmer 

For  instructions  on  entering  ttiis  listing,  pleas© 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  COMPUTEl. 

DF  10  KEY  OFF:  WIDTH  80:  DEF  SEG=0 
:POKE  1047, PEEK (1047)  OR  6 
4 

01  20  DIM  TBS  (144):  DIM  AB»(144) 

EJ  30  CLS:  PRINT:  PRINT  "What  is  t 
□day' 5  date  (Mo/Dy/Yr) "; : I 
NPUT  DT* 

BF  40  CLS: PRINT: PRINT  "Which  dis 
k  drive  do  you  want  to  lis 
t  (A/B)";: INPUT  DI*: IF  DI* 
<>"A"  AND  DI»<>"B"  THEN  40 


IE  50  REM  ttt  READ  DISK  MENU  ttt 
a  60  BEEP: CLS: PR  I NT  "READING  DA 
TA  :  PLEASE  STANDBY" 

CP  70  FSPEC*=DI*+":  t.f 

E6  B0  HEAD=  1 050  :TA  I  L=  1052:  BUFFER 

=1054: C»0 
LK  90  ON  ERROR  GOTO  110 
DC  100  FILES  FSPEC*:DN  ERROR  GOT 

0  0:BDTO  120 
1)1  110  BEEP:  CLS:  PRINT  "CANNOT  RE 

AD  DIRECTORY": ON  ERROR  BO 

TO  0;END 
BK  120  DIM  TT*  ( 24 ):  LOCATE  3,l:RO 

WS=0 
OH  130  POKE  HEAD,30:POKE  TAIL, 34 

:POKE  BUFFER, 0: POKE  BUFFE 

R+ 1,79: POKE  BUFFER+2, 13:P 

DKE  BUFFER+3,2e 
HC  140  LINE  INPUT  TTS(RDWS):IF  T 

T«(ROWS)<>""  THEN  ROWS'RD 

WS+1:60TD    130 
EH    150   RaWS=R0WS-l:F0R    1=0   TO    RD 

WS:FDR    J=0    TD   3 
Bl    160    T*=MID«(TT*(I),Jtl8+l,  12) 
KC    170    IF    T*<>""    THEN   TB»(C)=T»: 

C=C+1 
PK   180    NEXT    J:NEXT    I:ERASE    TT* 
CD   190    IF    OSS    THEN    GOSUB    1260 
CL  200    REM    tt*    ALPHABETIZE    LI  ST  I 

NB    tt* 
£B  210   BEEP:  CLS:  PRINT    "SORTING    D 

ATA    :    PLEASE   STANDBY" 
FF  220    Z*=CHR*(255)  :E=1 
K  230    FDR    A-0    TD    C-1 : C»=Z*: FOR 

B-0    TO   C-1 J  IF    C*<TB«(B)     T 

HEN   250 


BF  240 
FE   250 

IE  410 

CW  420 

PD  430 

60  440 

EF  450 
NL  460 
Cfl   470 

CE  480 

EE  510 
OC  520 


HF  530 
DA  540 
I A   550 

PB  560 
KH  570 
HP  580 
PC  590 
DJ  600 
EA  610 

|;H  620 
Bfl  630 

HO  640 
FB  630 
m  660 

PE  670 
JE  680 
CA   690 

FC  700 
KJ  710 
EJ  720 
CO  730 
IC  740 


C*=TB*(B>:D=B 

NEXT: AB*  <E) =C*: E=E+1 : TB» ( 

D)=Z*:NEXT 

REM  ttt  JACKET  NAME  =  NS» 

*** 
NS«="*tt**   REFERENCE   tt 
t*«" 

REM  ttt  PRINT  ALPHA  LIST 
*** 

BEEP: CLS: PRINT  "PRINTING 
JACKET  :  PLEASE  STANDBY" 
DD=0:CD=INT(C/2) 
FOR  CR=1  TD  2 
LPRINT  CHR* (10): REM  LINEF 
EED 

NEXT  CR 
TL»="-" 

LPRINT  TAB (3);: FOR  TL=1  T 
0  71: LPRINT  TL«;:NEXT  TL: 
LPRINT  "  CUT" 
GOSUB  1100: BOSUB  1110 
BOSUB  1100 

LPRINT  TAB(INT(39-LEN(NS* 
)/2) );NS*; 
GDSUB  1110 
FOR  LE=1  TO  2 
GOSUB  11 00: GOSUB  1110 
NEXT  LE 
GOSUB  1100 

LPRINT  TAB(36) ;CM*;DT*; :6 
OSUB  11 10: GOSUB  1120 
IF  C>32  THEN  790 
REM  ttt  PRINT  :  <  32  PROG 
RAMS  ttt 

FOR  DD=1  TO  CD: BOSUB  1100 
LPRINT  TAB(20) ;AB*(DD); 
LPRINT  TflB(45>;AB*(CD+DD) 
I 

GDSUB  1110 
NEXT  DD 

GDSUB  11 00: GOSUB  1110:DD= 
DD+1 

IF  DD>17  THEN  720 
GOTO  690 
GDSUB  1170 
FOR  SL=1  TO  29 
GDSUB  1150: BOSUB  1160 
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IP  750  NEXT  SL 

6L  760  BOSUB  1190 

SS  770  BOSUB  1210 

El  780  REM  t*«  PRINT  :  >  32  PRQG 

RAMS  tt* 
FL  790  FOR  DD=1  TO  16:G0SUB  1100 
FJ  800  LPRINT  TAB<20>  jAB»(DD); 
6N  ai0  LPRINT  TAB(45>;AB»(DD+16) 

Pn  320  GOSUB  1110 

JO  830  NEXT  DD 

NK  840  G05UB  1100:GOSUB  1110 

EA  850  GOSUB  1170 

IH  860  GOSUB  1150:  GOSUB  1160 

Kfl  870  CX=(C-33)/2:CZ=CX+32 

Bfl  880  FOR  DD=33  TO  CZs  GOSUB  U5 

0 
BL  e<?0  LPRINT  TAB(20);AB*(DD)  ; 
K   <?00  LPRINT  TftBt45);AB»(DD+CX) 

t 
Sn  910  GOSUB  1160 
JH  920  NEXT  DD 

HA  930  GOSUB  1150: GOSUB  1160:DD- 

DD+l 
Lf  940  IF  DD>60  THEN  960 
IP  950  GOTO  930 
ei  960  GOSUB  1190:  GOSUB  1210 
EA  970  REM  t**  CLOSING  REMARKS  » 


tt 

Oil  980  BEEP:  CLS;  PRINT  "ftLPHABETl 

ZED  DISK  COVER  COMPLETE" 
PI  990  PRINT:  PRINT  "Do  you  want 
another  disk  covmr    (Y/N) " 
! ! INPUT  AB» 
IN  1000  FOR  DD=0  TO  144:  AB«  <DD)  <= 

"":NEXT  DD 
LN  1010  IF  Ae«<>"Y"  THEN  1040 
l»  1020  CL5:QaTQ  40 
!K  1030  REM  *t  TERMINATE  PROGRAM 

tt 
Hf  1040  BEEP:  CLS;  PR  I  NT  "PROBRAM 

TERMINATED" 
HE  1050  FOR  WT=1  TO  1000:  NEXT  WT 
UK  1060  CLS:  END 
0»  1090  REM  ttt  DISK  JACKET  OUTL 

INE  ttt 
IP  1100  LPRINT  "  !         I  t";:R 

ETURN 
K  1110  LPRINT  TAB<64>;"t  1 

I "1  RETURN 
BD  1120  LPRINT  "  ;         !  t"; 
at    1130  LPRINT  TAB  (29);" 

EL  1140  LPRINT  TAB(64);"t  I 

I  " : RETURN 
CC  1150  LPRINT  "  !";:RET 


URN 
H  1160  LPRINT  TAB(66); " l":RETUR 

N 
80  1170  CL*="-" 
H  1180  LPRINT  TAB (3) i! FOR  CL=1 

TO  71 8 LPRINT  CL*jsNEXT  C 

Ls LPRINT  "  FOLD" I  RETURN 
U    1190  LL»="-" 

OF  1200  LPRINT  TAB<ll>;:FOR  LL-1 
TO  55:LPR1NT  LL*;:NEXT 

LL: LPRINT"  CUT": RETURN 
M  1210  LPRINT: FOR  CR=1  TO  3 
CP  1220  LPRINT  CHR«(10):RO1  LINE 

FEED 
LB  1230  NEXT  CR:GOTO  980 
W    1240  REM  tt  MENU  TOO  LONG  TO 

LIST  tt 
IE  1250  REM  tt  CAN  ONLY  LIST  88 

PQMS  tt 
W    1260  BEEP: CLS: PRINT  "TOO  MANY 
PR06RAMS  TO  LIST  ON  JAC 

KET" 
K  1270  PRINT:PRINT  "Print  those 
that  fit  (Y/N)"; I  INPUT 

PM* 
ee  1280  IF  AW»<>"Y"  THEN  1040 
M  1290  C=88: RETURN  Q 


64  Encryptor 


This  BASIC  utility  will  hide  your  pro- 
grams from  prying  eyes.  It  encrypts  a 
BASIC  program  in  memory  so  that  it 
can  be  neither  stopped  while  running 
nor  listed.  The  program  also  includes 
an  option  for  restoring  things  back  to 
normal  if  you  wish.  A  secret  ID  code 
even  prevents  people  who  have  the 
Encryptor  program  themselves  from 
unlocking  your  secrets. 


Part  of  the  fun  of  computing  is  shar- 
ing one  of  your  programs  with  oth- 
ers. At  times,  however,  you  may 
want  to  keep  things  confidential. 
For  example,  you  might  have  writ- 
ten a  finance  program  which  con- 
tains DATA  statements  revealing 
your  entire  personal  portfolio.  You 
might  want  to  prevent  others  from 
looking  at  this  information.  The 
LIST  command  ordinarily  displays 
the  contents  of  any  BASIC  program. 
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However,  you  can  use  "64  En- 
cryptor" to  encrypt  any  BASIC  pro- 
gram to  prevent  other  people  from 
deciphering  it.  Though  the  encrypted 
program  can't  be  listed  or  exam- 
ined, it  still  runs  normally.  And 
since  each  copy  of  Encryptor  has  a 
unique  ID  code,  your  protected  pro- 
gram should  be  safe  even  from  oth- 
ers who  have  64  Encryptor  them- 
selves. 

A  Special  Random 
Identifier 

Type  in  and  save  the  BASIC  loader 
program  listed  below.  You  may 
save  it  with  any  filename  you  like, 
except  ENCRYPTOR  (that's  what 
the  BASIC  loader  will  name  the 
machine  language  file  that  it  cre- 
ates). When  the  program  runs,  it 
spends  a  few  seconds  creating  the 
Encryptor  machine  language  rou- 
tine in  the  memory  area  starting  at 


49152,  then  it  saves  the  machine 
language  to  disk.  To  have  the  En- 
cryptor file  saved  to  tape  instead, 
change  the  DV=8  in  line  80  to 
DV=1. 

When  the  loader  writes  En- 
cryptor into  high  memory,  it  em- 
beds an  identifier  mark  within  the 
program.  The  identifier  is  randomly 
selected  and  vrill  be  different  each 
time  you  run  the  loader.  This  fea- 
ture makes  a  program  encrypted 
with  one  copy  of  Encryptor  incom- 
patible with  any  other  copy  of  En- 
cryptor— even  another  copy  created 
on  the  same  64.  As  a  result,  you 
don't  have  to  worry  that  other  peo- 
ple with  this  program  can  decrypt 
your  programs. 

To  encrypt  or  decrypt  a  BASIC 
program,  follow  these  steps: 

•  Load  Encryptor  with  LOAD"EN- 
CRYPTOR",8,l  for  disk  or  LOAD 
"ENCRYPTOR",l,l  for  tape. 
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•  Type  NEW  and  press  RETURN. 

•  Load  the  BASIC  program  you 
wish  to  encrypt  or  decrypt. 

•  To  encrypt  a  program,  type  SYS 
49152  and  press  RETURN.  When 
the  cursor  returns,  be  sure  to  imme- 
diately save  a  copy  of  the  encrypted 
version  using  a  different  filename. 
.  To  decrypt  a  program,  type  SYS 
49155  and  press  RETURN. 

An  encrypted  program  runs 
normally,  but  cannot  easily  be  ex- 
amined by  the  person  using  it. 
When  you  run  an  encrypted  pro- 
gram, a  built-in  machine  language 
subroutine  is  called  to  decrypt  the 
actual  program  data  and  run  it.  At 
the  same  time,  Encryptor  disables 
the  LIST  command  and  the  RUN/ 
STOP-RESTORE  key  combination. 
You  should  make  sure  that  the  pro- 
gram being  encrypted  does  not  con- 
tain any  references  to  the  ROM 
routine  at  65505  ($FFE1),  which 
tests  to  see  whether  the  RUN/ 
STOP  key  has  been  pressed.  The 
program  to  be  protected  also 
should  not  offer  the  user  the  option 
of  exiting  the  program. 

Because  the  BASIC  loader  pro- 
gram creates  a  different  Encryptor 
each  time  it  is  run,  you  should  take 
care  to  make  a  backup  copy  of  each 
Encryptor  that  you  create.  (You 
should  also  keep  an  unprotected 
copy  of  any  important  programs 
you  encrypt.)  If  you  accidentally 
erase  your  only  copy  of  Encryptor, 
you  vrill  not  be  able  to  decrypt  any 
programs  protected  with  that  ver- 
sion. Of  course,  to  keep  your  pro- 
grams secure,  you  should  not  give 
anyone  else  a  copy  of  your  version 
of  Encryptor. 

Works  With  BASIC/ 
Machine  Language 
Combinations 

Some  BASIC  programs  require 
that  you  relocate  the  start  of  BASIC 
text  before  you  load  and  run  them, 
others  leave  little  memory  for  vari- 
ables (meaning  you  should  not  en- 
large the  program),  and  some 
BASIC  programs  cannot  be  relo- 
cated because  they  have  ML  rou- 
tines appended  to  the  end  of  BASIC 
text.  Encryptor  has  been  designed 
with  all  these  conditions  in  mind. 
The  ML  routine  included  in  an  en- 
crypted program  contains  no  abso- 
lute  addresses,   and   it   moves 


program  data  down  in  memory 
after  it  has  done  its  work,  so  nonre- 
locating  BASIC  programs  can  still 
be  safely  encrypted. 

64  Encryptor 

For  instaictlons  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  computei. 

GH    10    PRINTCHR5(147)CHR5(155) " 

PLEASE    WAIT": 1=49152 
HG    20    READA:IFA=256THEN40 
HJ    30    POKEI, A:CK=CK+A: 1=1+1 iGO 

TO20 
MC    43    IFCK<>66816THEKPRINT"ERR 
OR    IN    DATA    STATEMENTS."! 
STOP 
JG    50    POKEI+4574,255 
FQ    60    P0KEI+4577,128:F0RA=I-31 
7TOI-308  jPOKEA, PEEK ( I+4S 
86) !NEXT:POKEI+4577,0 
DB    70    POKEI +4574,0 
HB    80    DV=e:SYS57812 "ENCRYPTOR" 

,DV 
XG    90    PRINT "SAVING    ENCRYPTOR" 
JM    100    POKE251,0:POKE252,192:P 

OKE780,2  5l!POKE782,l/25 

6 :POKE781 , I-PEEK( 782 )*2 

56 
PH    110    SYS65496 SPRINT "ENCRYPTO 

R   CREATED. " : END 
EE    120    DATA76,254,192,76,28,19 

3,167,43 
RH    130    DATA135,251,135,253,167 

,44,135,254 
EE    140    DATA232,134,252,160,0,1 

77,251,145 
AF  150  DATA253,230,251,230,253 

,208,4,230 
KH  160  DATA252,230,2S4,167,252 

,197,46,208 
SQ  170  DATA236,167,251,197,45, 

208,230,198 
RF  180  DATA46,96,167,44,135,17 

5,167,43 
AH  190  DATA56,233,1,176,2,198, 

175,133 
SF  200  DATA174,167,46,135,252, 

232,134,254 
AJ  210  DATA167,45,56,233,1,176 

,4,198 
GC  220  DATA252,198,254,133,251 

,133,253,160 
HC  230  DATA0, 177, 251, 145, 253,1 

98,251,198 
GA  240  DATA253,167,251,201,255 

,208,4,198 
MB  250  DATA252,198,254,167,252 

,197,175,208 
KC  260  DATA232,167,2S1,197,174 

,208,226,230 
QH  270  DATA46,96,167,43,135,25 

1,167,44 
RJ  280  DATA232,134,252,160,0,1 

62,8,177 
FR  290  DATA251,10,102,255,202, 

208,250,167 
EQ  300  DATA255,145,251,230,251 

,208,2,230 
EQ  310  DATA252,167,252,197,46, 

208,230,167 
CD    320    DATA251,197,45,208,224, 

96,169,0 
CX    330    DATA133,255,160,165,191 

,79,192,69 
RC    340    DATA255,133,255,209,43, 

208,6,200 
PB    350    DATA192,175,208,240,96, 

169,199,160 


QX 

360 

DATA192,32,30,171,108,2 
,160,69 

KP 

370 

DATA78,67,82,89,80,84,7 

9,82 

DO 

330 

DATA32, 73,46,68,46, 3  2, 7 
7,73 

AK 

390 

nATA83,77,65,84,67,72,0 
,169 

DR 

400 

DATA0, 133, 255, 160, 165,1 
91,79,192 

GM 

410 

DATA69,255,133,255,145, 
43,200,192 

cx 

420 

DATA175,208,242,96,0,0, 
0,0 

GC 

430 

DATA0, 0,0, 0,0, 0,32,50 

JC 

440 

DATA192,32,122,192,160, 
0,191,48 

GG 

450 

DATA193,145,43,200,208, 
248,32,223 

QM 

460 

DATA192,32,89,166,32,51 
,165,104 

FD 

470 

DATA104,108,2,160,32,16 
6,192,32 

EA 

480 

DATA122,192,32,6,192,32 
,89,166 

AG 

490 

nATA32,51,16  5,104,104,l 
08,2,160 

RR 

500 

DATA2S,8,0,0,158,194,40 
,52 

MS 

510 

DATASl ,41 , 170 , 50 , S3 , 54 , 
172,194 

JA 

520 

DATA40,52,52,41,170,50, 

54,0 

XF 

530 

DATA0, 0,167, 43. 135, 251, 
167,44 

BJ 

540 

DATA232,134,252,160,0,1 
62,8,177 

FR 

550 

DATA251,10,102,255,202, 
208,250,167 

PR 

560 

DAT A255, 145, 25 1,2 30, 251 
,208,2,230 

HR 

570 

DATA252,167,25  2,197,46, 
208,230,167 

JR 

580 

DATA251,197,45,208,224, 
160,84,177 

MQ 

590 

DATA43, 153, 172, 1,200, 19 
2,165,208 

AH 

600 

DATA246 ,76, 0,2, 16 7, 43,1 
35,251 

DP 

610 

DATA135,253,167,44,135, 
254,232,134 

RS 

620 

nATA252, 160, 0,177, 251.1 
45,253.230 

XB 

630 

nATA251,230,253,208.4,2 
30,252,230 

PX 

640 

DATA254,167,252,197,46, 
208.236,167 

DF 

650 

DATA251,197,45,208,230, 
198,46,32 

PB 

660 

nATA89.166,32,51,165,12 
0,162,255 

JJ 

670 

DATA169 , 182 , 143 , 6 , 3 , 169 
,234.143 

AG 

680 

DATA40,3,169,246,143,41 

,3,169 

FK 

690 

nATA193,143,24,3,169,25 
4,143,25 

PG 

700 

DATA3,88,76,174,167,0,0 

,0 

DATA0, 0,0, 0,0, 0,0,0 

RF 

710 

KM 

720 

DATA0. 0,0. 0,0, 0,0,0 

PK 

730 

DATAfl, 0,0, 0,0, 0,0,0 

BJ 

740 

DATA0, 0,0, 0,0, 0,0,0 

HJ 

750 

DATA0, 0,0, 0,0, 0,0,0 

KX 

760 

DATA0, 0,0, 0,0, 0,0,0 

FS 

770 

DATA0. 0,0. 0,0, 0,0,0 

BR 

780 

DATA0, 0,0, 0,0, 0,0,0 

RR 

790 

DATA0, 0,0, 0,0, 0,0,0 

MB 

800 

nATA0, 0,0, 0,0, 0,0,0 

GQ 

810 

DATA0, 0,0, 0,0, 0,0,0 

HF 

820 

nATA0,256               © 
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With  ANIMATE  you  can  create  rapidly  moving  3-D  graphics  within  a  BASIC  program.  This  series  of  photos  shows  only  i  of  the 
95  screens  used  for  the  CUBE  display,  which  creates  a  rotating  cube  that  moves  toward  and  away  from  the  viewer. 


Easy  IBM  Full-Screen 
Animation 


Now  you  can  write  BASIC  programs 
with  smooth,  flicker-free  animated 
displays  that  move  at  machine  lan- 
guage speeds.  For  the  IBM  PC/PCjr. 
BASICA  and  a  color /graphics  card 
are  required  to  use  the  program  on  the 
PC.  Cartridge  BASIC  is  required  for 
the  PCjr. 


Full-screen  animation  is  achieved 
by  rapidly  displaying  a  series  of 
high-resolution  screens  on  the  vid- 
eo display.  Producing  realistic  ani- 
mation using  BASIC  is  very  difficult 
because  of  the  time  required  to  cre- 
ate the  screen  images.  The  creation 
of  a  high-resolution  screen  image 
usually  consists  of  two  processes 
repeated  many  times.  First,  the  co- 
ordinates of  the  endpoints  of  a  line 
segment  are  computed.  Second,  the 
line  segment  is  displayed  on  the 
screen. 

The  method  of  animation  pre- 
sented here  is  unusual  in  that  it 
completely  separates  the  two  pro- 


PquI  W.  Carlson 


cesses.  The  computation  of  the  co- 
ordinates of  every  line  segment  for 
every  screen  image  is  done  by  a 
BASIC  program  which  writes  the 
coordinates  to  disk  as  a  binary 
(non-ASCII)  file.  This  file  of  line 
segment  coordinates  is  then  input 
to  a  machine  language  program 
which  displays  the  screens  in  rapid 
succession  to  produce  the  animation. 
To  begin,  type  in  and  save  Pro- 
gram 1.  Before  you  run  this  pro- 
gram, make  sure  you  have  a  disk  in 
the  active  drive  with  at  least  60,000 
bytes  of  available  space.  Now  run 
Program  1;  it  creates  a  disk  file 
named  ANIMATE. OBJ  containing 
the  machine  language  animation 
routine.  The  DOS  LINK  utility  must 
then  be  used  to  generate  an  execut- 
able version  of  this  file.  To  do  this, 
first  exit  DOS  by  typing  SYSTEM 
and  pressing  Enter,  Place  a  DOS 
system  disk  containing  the  file  LINK 
.EXE  in  the  active  drive  (check  the 
master  disk  that  came  with  your 
copy  of  DOS),  type  LINK,  then 
press  Enter,  When  you  are  prompt- 


ed for  the  object  modules,  remove 
the  DOS  system  disk  and  replace  it 
with  the  disk  containing  ANIMATE 
.OBJ.  At  this  point  you  should  type 
ANIMATE„NUL,NUL  and  press 
Enter.  After  a  minute  or  so  the  DOS 
prompt  will  reappear.  Your  disk 
now  contains  a  new  file  named  AN- 
IMATE.EXE,  the  usable  version  of 
the  machine  language  program  that 
creates  animated  displays  from  the 
files  produced  by  Programs  2  or  3. 

A  Rotating  Demo 

Now  you  are  ready  to  type  in  and 
save  Program  2  (this  program  can 
be  saved  on  any  disk).  When  you 
run  the  program,  you  will  be 
prompted  for  an  output  filename. 
Enter  any  legal  filename.  Program  2 
creates  images  of  the  word  LOVE 
rotating  in  three-dimensions.  After 
you  press  Enter,  the  program  be- 
gins computing  the  line  segment 
coordinates  for  each  screen  and 
writing  them  to  the  specified  disk 
file.  The  display  will  show  which 
screen  is  currently  being  computed. 
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Program  2  computes  71  screens.  Do 
not  remove  the  disk  from  the  drive 
until  you  see  the  message  that  the 
file  is  complete. 

When  the  BASIC  Ok  prompt 
reappears,  type  SYSTEM  and  press 
Enter  to  exit  to  DOS.  Put  the  disk 
containing  ANIMATE.EXE  in  the 
active  drive,  then  type  ANIMATE 
and  press  Enter.  When  you  are 
asked  for  the  name  of  the  input  file, 
put  the  disk  containing  the  file  cre- 
ated by  Program  2  in  the  active 
drive  and  enter  the  name  you  speci- 
fied for  that  file.  The  disk  drive  light 
will  go  on  for  a  few  seconds,  and 
then  the  animated  image  should 
appear  on  the  screen.  Press  the  Q 
key  to  terminate  the  display. 

Once  you  have  used  Program  2 
to  create  the  animation  data  file, 
you  won't  need  it  again.  However, 
before  you  delete  it,  notice  that 
lines  430-520  also  occur  in  Pro- 
gram 3.  In  fact,  you'll  find  these 
lines  in  every  program  that  you 
write  that  produces  data  files  for  the 
ANIMATE  program.  To  save  your- 
self a  lot  of  typing,  load  Program  2 
and  delete  all  lines  except  430-520; 
save  the  shortened  program  with  a 
name  you'll  remember — you  will 
probably  use  it  as  a  template  pro- 
gram many  times. 

To  enter  Program  3,  first  load 
the  file  containing  lines  430-520  of 
Program  2.  Then  type  in  the  other 
lines  listed  as  Program  3  and  save 
the  file.  At  this  point  you  should 
follow  the  same  procedure  as  for 
Program  2.  Program  3  computes  95 
screens.  The  computation  for  each 
screen  takes  longer  than  those  in 
Program  2  because  of  computations 
to  remove  hidden  lines  from  the 
display.  Now  run  the  animate  pro- 
gram using  this  data  file  as  input. 
You  v«ll  see  a  rotating  cube  repeat- 
edly coming  toward  and  going 
away  from  you  (see  photos). 

Make  Your  Own  Art 

Writing  your  own  programs  with 
ANIMATE  is  not  difficult.  Just  fol- 
low these  steps: 

1 .  Load  the  template  file  containing 
the  lines  430-520. 

2.  All  DIM  statements  and  initial- 
ization of  variables  should  be  per- 
formed prior  to  line  430.  If  there  is 
not  enough  room  in  the  program  to 
do  this,  you  can  GOSUB  to  a  rou- 


tine located  further  down  in  the 
program.  DATA  statements,  of 
course,  can  be  placed  anywhere  in 
the  program. 

3.  The  variable  NUMSCNS  should 
be  assigned  a  value  equal  to  the 
number  of  screens  to  be  displayed. 
This  assignment  must  also  be  done 
prior  to  line  430. 

4.  The  subroutine  that  does  the 
computation  for  each  screen  must 
begin  at  line  1000.  For  each  line 
segment,  the  program  must  com- 
pute the  segment  endpoint  coordi- 
nates (the  variables  XI,  Yl,  X2,  and 
Y2)  and  execute  a  GOSUB  500. 

The  ANIMATE  program  can 
handle  up  to  4000  line  segments. 
This  means  that  the  number  of 
screens  times  the  number  of  line 
segments  per  screen  cannot  exceed 
4000. 

Programs  2  and  3  both  pro- 
duced 3-D  images,  but  this  doesn't 
mean  that  you  need  to  know  3-D 
geometry  to  create  impressive  dis- 
plays. Two-dimensional  animation, 
when  it's  fast  and  smooth,  can  be 
truly  spectacular  as  well. 

For  Instructions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  In  this  Issue  of  computei 

Program  1:  ANIMATE.OBJ  File 
Maker 

a   10   T-0IOPEN    "ftNIMflTE.DBJ"    FOR 

OUTPUT   AS    1 
KL  20    FDR   J-1    TO    1 076 1  READ    fl»lN- 

VAL("S.H"+A«) 
FB   30    T"T+NsPRINT#l,CHR»(N)i:NEX 

Tc CLOSE  1 
PL  40  IF  T=a4992!  THEN  PRINT"FIL 
E  SUCCESSFULLY  CREATED ! " t  E 
ND 
LN  50  PRINT  CHR»(7);"»*«t«  ERROR 

IN  DATA  STATEMENTS  **««»" 
lEND 
BE  100  DATA  80,03,00,01,41,36,96 

,11,00,00 
OD  110  DATA  04,43,53,45,47,04,44 

,53,45,47 
BI  120  DATA  04,53,53,45,47,D6,9B 

,07,00,&0 
0(1  130  DATA  El, 01, 02, 01, 01,  IB,  9B 

,07,00,60 
n  140  DATA  9D,BF,03,01,01, A0,9B 

,07,00,74 
1.1  150  DATA  80,  00, 04, 01, 01, 67,  A0 

,0C,00,02 
M  160  DATA  00,00,80,40,20,10,08 

,04,02,01 
JL  170  DATA  S3.A2,0F.00,02,0e,00 

,00,40,01 
EF  1B0  DATA  00,01,00,00,00,02,00 

,00,01,A2 
10  190  DATA  0F,00,02,08,80,A0,  IF 

,01,00,01 
PB  200  DATA  00,00,00,02,00,00,02 

,A0,1A,00 
eC  210  DATA  02,4B,BF,00,00,00,00 


,00,00,00 
K  220  DATA  00,00,00,00,00,00,00 

,00,00,00 
JH  230  DATA  00,00,00, 14,00,29, A2 

,0E,00,02 
NH  240  DATA  SE,  BF,  14,00,01,00,01 

,00,00,00 
K  250  DATA  01,20,FA, A0,2F,0«,02 

,72,BF,00 
m   260  DATA  00, 45, 6E, 74, 65, 72, 20 

,69,6E,70 
tF  270  DATA  75,74,20,A6,69,6C,65 

,20,6E,61 
m   280  DATA  6D,65,3A,20,24,0A,0D 

,46,69,6C 
DP  290  DATA  65,20,6E,6F,74,20,66 

,6F,7S,6E 

II  300  DATA  64, 24, 49,  A0, 01, 01, 01 

,00,00, IE 
ni  310  DATA  33,C0,S0,B8,00,00,8e 

,De,BB,00 
M  320  DATA  06, B7,07, B9, 00, 00, BA 

,4F,1B,CD 
U  330  DATA  10,33,D2,B7,00,B4,02 

,CD, 10,8D 
ID  340  DATA  16, 00, 00,  B4, 09,  CD,  21 

,6D, 16,00 
W.  350  DATA  00,B4,0A,CD,21,B7,00 

,BA, IE, 00 
eC  360  DATA  00,  C6,e7,  00,00,  00,  BD 

,  1 6  ,  00 ,  00 
IK  370  DATA  B0, 00,B4, 3D,  CD,2t ,  73 

,09,BD, 16 
Ift  3B0  DATA  00,00,B4,09,CD,21,CB 

, A3, 00, 00 

III  390  DATA  SB,  IE,  00, 00,  BD,  16,00 

,00,S2,B9 
Pe  400  DATA  80,00,B4,3F,CD,21,SA 

,B1,C2,S0 
QG  410  DATA  00,3D,00,00,75,EE,B8 

,06,00,  CD 
PI  420  DATA  10,E8,00,00,SD,1E,00 

,00,8B,07 
FJ  430  DATA  3D,  9D,  FF,  74,  2F,  3D,  19 

,FC,7S,03 
Fl  440  DATA  Ee,00,00,EB,EB,  A3,00 

,00,83,C3 
iK   450  DATA  02,  BB, 07,  A3, 00, 00, 83 

,C3,02,SB 
00  460  DATA  07 ,  A3 ,  00 ,  00 ,  83 ,  C3, 02 

, SB, 07, A3 
K  470  DATA  00,00,83, C3, 02,53, EB 

,00,00,5B 
eC  480  DATA  EB,CA,EB,  00,  00,84,06 

,B2,FF,CD 
NE  490  DATA  2l,3C,71,74,04,3C,51 

,75,18,32 
BB  S00  DATA  FF,B8,00,06,33,C9,BA 

,4F,18,CD 
10  510  DATA  10,B8,00,02,33,DB,33 

,D2,CD,10 
ML  520  DATA  Ba,02,00,CD,  10,  CB,E8 

,00,00,83 
HP  530  DATA  C3 ,  02 ,  EB ,  96 , 1 E ,  06 ,  BC 

,Da,8E,C0 
n   540  DATA  8D,3E,00,00,Ba,00,B8 

,BE,DB,33 
M  550  DATA  F6,B9, A0, 1F,FC,F3, A5 

,07, 1F,C3 
IB  560  DATA  06,BB,45,9C,94,00,C6 

,05,00,02 
>!  S70  DATA  02,9D,BF,C4,20,00,02 

,02,74,BF 
EK  530    DATA   C4,  28,00,02,02,  5C,BF 

,C4,32,00 
FL   590   DATA   02,  02,  5D,  BF,  C4,  36,  00 

,02,02,5£ 
El   600    DATA    BF,C4,3B,00,02,02,5E 

,BF,C4,47 
LS  610    DATA    00,02,02,aC,BF,C4,4F 

,00,02,02 
OF   620   DATA    72,  BF,  C4,  53,  00,  02,  02 

,72,BF,C4 
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BO  630  DATA  57,00,02,02,00,00,84 

,71,00,01 
KQ  640  DATA  01 ,  El  ,  00,  C4,  7S,  00,  02 

,02,08,00 
NB  650  DATA  84,  84,  00,  01 ,  01 ,  0F,  01 

,C4,a?,00 
NB  660  DATA  02,02,  4B,BF,  C4,91,00 

,02,02,4A 
LE  670  DATA  BF,  C4,  99,00,  02,  02,  4C 

,BF,C4,A1 
Bf  680  DATA  00,02,02,4E,  BF,84,A8 

,00,01,01 
n   690  DATA  22, 01, 84, AE, 00, 01, 01 

,FB,00,a4 
FA  700  DATA  DA,  00,  01 ,01  ,0F,  01 ,  C4 

,E9,00,02 
ID  710  DATA  02,0S,80,lB,A0,Ea,00 

,01,FD,00 
W   720  DATA  00,B8,BE,C0,B9,A0,1F 

,33,FF,8D 
DB  730  DATA  36,00,00,FC,F3, A5,07 

PB  740  DATA  D8,  BE,  C0,B9,  A0,  IF,  BD 

,3E,00,00 
JI  750  DATA  33,C0,FC,F3,AB,07,C3 

,06,ec,Da 

JC  760  DATA  8E,C0,BE,01,00,BF,01 
,00,86,16 

IB  770  DATA  00,  00,  2B,  16,00,00,70 

,04,F7,DF 
fl*  780  DATA  F7,DA,a9,3E,00,00,aB 

,0E,00,00 
ff   790  DATA  2B,0E,00,00,7D,04,F7 

,DE,F7,D9 
AE  800  DATA  89,  36,  00,00,38,  CA,  7D 

,06, BE, 00 
9L  810  DATA  00, 87,  CA,EB,  04, 90,  BF 

,00,00,89 
M  S20  DATA  36,00,00,a9,3E,00,00 

,eB,CZ,Dl 
LI   830  DATA  E0, A3,00,00,2B,Cl,eB 

,D8,2B,C1 
DC  840  DATA  A3,  00,  00,  BB,  36,  00,  00 

,SB,3E,00 
DJ  eS0  DATA  00,41,S6,S3,eB,C7,aA 

,E0,23,FE 
BH  860  DATA  01,Di,E0,Dl,E0,Dl,E0 

,BB,DB,B0 
K  STB    DATA  E7, 07, Dl ,E0, 01 , E0,03 

,DB, 80,06 
BK  880  DATA  00,00,03,DB,aB,C6,Di 

,F8,D1,F8 
M  B90  DATA  D1,F8,03, 08,01, E6, 07 

,00,eA,84 
«   900  DATA  00, 00, 26, 0A, 07, 26, 88 

,07,SB,3E 

LI  910  DATA  83,  FB, 00, 70, 11,03,36 

,00,00,03 
KC  920  DATA  3E,  00, 00, 03,  IE,  00, 00 

,E2,B3,EB 
Ml  930  DATA  0F,  90, 03, 36, 00, 00,  03 

,3E,00,00 
EJ  940  DATA  03,  IE,  00,  00,  E2,  A2,07 

,C3,82,9C 
OP  950  DATA  99,00,C4,0B,00,02,02 

,0e,B0,C4 
EJ  960  DATA  IC,  00, 02, 02, 08,  80,1:4 

,32,00,02 
OS  970  DATA  02,4E,BF,C4,36,00,02 

,02,4A,BF 
n  980  DATA  C4,40,00,02,02,32,BF 

,C4,44,00 
HI  990  DATA  02,02,4C,BF,C4,4B,00 

,02,02,48 
OP  1000  DATA  BF,C4,S2, 00.02,02,5 

0,BF,C4,65 
m   1010  DATA  00,02,02,54,BF,C4,6 

9,00,02,02 
HH  1020  DATA  56,  BF,  C4,  70,  00,  02,  0 

2,Se,BF,C4 
BH  1030  DATA  79,00,02,02,5A,BF,C 

4,70,00,02 
CI  1040  DATA  02,4a,BF,C4,81,00,0 


2,02,4A,BF 
BD  1030  DATA  C4,  A0,  00,  02,  02,  0B,  8 

0,C4,B4,04 
HP  1060  DATA  02,02,C4,C3,00,02,0 

2,54,BF,C4 
CP  1070  DATA  C9,00,02,02,36,BF,C 

4,  CD, 00, 02 
!A  1080  DATA  02,Se,BF,C4,D6,00,0 

2,02,S0,BF 
PH  1090  DATA  C4,  DA,  00, 02,02,32,8 

F,C4,DE,00 
PB  1100  DATA  02,02,SA,BF,38,90,0 

E,  00, 00, 01 
IW  1110  DATA  07,41,52,52,59,33,4 

3,4E,FB,00 
«.   1120  DATA  00, 30, 90, 0C,  00, 00,0 

1,03,45,52 
IN  1130  DATA  41,53,4S,0F,01,00,O 

E,90,0E,00 
JO  1140  DATA  00,01,07,40,45,40,4 

C,49,4E,4S 
•X   1150  DATA  22,01,00,30,90,0E,0 

0,00,01,07 
CH  1160  DATA  53, 43, 4E,  4 1,32, 52, 5 

9,  El,  00, 00 
HE  1170  DATA  S7,8A,02,00,00,74 


Program  2:  LOVE  File  Maker 

DJ  10  Din  BX(111,BY(11>,EX(11),E 

,Y(11) 
PH  20  FOR  N-0  TO  llsREAD  BX(N),B 

Y(N)  ,EX(N),EY(N)ih£XT 
K  30  DATA  -22,3,-22,-3,-22,-3,- 

14,-3 
M  40  DATA  -10,3,-10,-3,-10,-3,- 

2,-3 
El  50   DATA   -2,-3,-2,3,-2,3,-10,3 
J8  60   DATA   2,3,6,-3,6,-3,10,3 
re  70   DATA    22,3,14,3,14,3,14,-3 
W   80    DATA    14,-3,22,-3,20,0,14,0 
U  90   [:X«320sCY-100tA«6. 2831853* 
CF    100   NlJIISCNS-71 
Jit  430    INPUT  "OUTPUT    FILE   NAriE"iF 

•  I  OPEN   Ft    FOR   OUTPUT    AS    1 
EE  440   PRINT-COHPUTINQ    SCREEN  ^RJ 

RBERs    "J 
HB  450   FOR   SCRN-1    TO   NUI1SCNS:PRI 

NT    SCRNj 
IM  460   eOSUB    1000 
IE   470   PRINT«1,CHR»(157);CHR»(23 

S)ttNEXT   SCRN 
FO  480  PRINT«l,CMR»(25>jCHR»<23Z 

> I  CLOSE    It  PRINT 
BJ  490   PRINT-ANIMATION    DATA   FILE 
'■  I  CHR«  <34>  J F* J  CHR*  (34) ;  " 
IS    COMPLETE" I  END 
CL   500   PRINT«1,CHR»(INT(X1)     AND 

255) |CHR«(INT(Xl/236) > ;  CH 

R»CINT<Yl))iCHR»(0) J 
Kfl   510    PRINT#1,CHR«(INT(X2)    AND 

255) ; CHR« ( INT (X2/2S6) ) ] CH 

R* ( INT< Y2) } \ CHR* (0) ; 
HD  520   RETURN 
HF    1000    FOR    N-0    TO    11 
KL   1010    ZE»-BX(N)«SIN(A)-»-30 
PQ    1020    X1=100«BX(N)*COS(A)/ZE+C 

XlYl— 100»BY<N)/ZE+CY 
HP   1030    ZE=— EX<N5tSIN(A}+30 
m.   1040    X2-100tEX<N)«COS(A)/ZE+C 

XlY2— 100«EY<N)/ZE+CY 
!I    1050   BOSUS    500 

BI    1060   NEXT    NSA-A-8.726646E-02 
JA   1070   RETURN 


Program  3:  CUBE  File  Maker 

BF   1    •    PROGRAM   3 

OH  2    ' 

HH   10  DIM   V(e,3),SV(8,2)  ,St6,5)  , 


N(6,3>,E<12,3) 
FE   20    FOR    1  =  1    TO    B:FOR    J  =  l    TO    3i 

READ   V ( I , J ) : NEXT   J ,  t 
AS   30   FOR    1-1    TO   6s  FOR    J=l    TO   Ss 

READ   8(1, J) 3 NEXT    J.I 
KH  40   DATA  40,40,-40,40,40,40,40 

, -40, 40, 40,-40,-40 
PJ   50   DATA   -40,-40,-40,-40,-40,4 

0, -40, 40, 40, -40, 40, -40 
l£  60    DATA    1,2,3,4,1,1,8,7,2,1,8 

,5,6,7,8 
HE  70    DATA   5,4,3,6,5,2,7,6,3,2,4 

,5,8,1,4 
KP  90   CX=320:CY=I00:TH=.2!PH=.B: 

PPD-20001 DIST»20000 
HH   100   NUMSCNS-95 

JK   430    INPUT "OUTPUT   FILE   NAME"jF 

» I  OPEN   F»   FOR   OUTPUT   AS    1 

EE  440  PR  I  NT  "COMPUTING    SCREEN   NU 

MBER:     "I 
HB  450   FOR   SCRN«1    TO   NUMSCN3:PRI 

NT   SCRN; 
NX  460    GOSUB    1000 
IE  470   PRINT#1,CHR»(157);CHR$(25 

5) n NEXT   SCRN 
FO  480   PRINT«l,CHR»C23);Chfft«(252 

): CLOSE    1 1  PRINT 
BJ  490  PRINT"ANIMATION   DATA   FILE 
"lCHR«(34) ;F*;CHR»(34)}" 
18   COMPLETE "I END 
CL   500   PRINT»1,CHR*(INT(X1)    AND 
2SS) iCHR«(INT<Xl/2S6) ) ;CH 
R*(INT(Y1)) ;CHR«C0) ; 
Kfl   510   PRINT»1,CHR»(INTCX2)    AND 
255) jCfffi* ( INT (X2/256) } }CH 
R*{INT(Y2))5CHR»(0); 
HD   520    RETURN 
KC    1000    SI-SIN  (TH)  :Cl«=COS<TH)  I  S2 

-SIN(PH) !C2-C0S(PH) 
PP   1010   FOR    I-l    TO   B:X=VtI,l):Y= 
VCI,2):Z-V(I.3):3X— XtSl 
+Y»C1 
FL    1020    SY— XtCltC2-YtSl*C2+Z«SZ 
iSZ— Xta2tCl-Yt82»Sl-Z«C 
2+DI9T 
IB    1030    SV(I,  1)-PPD»(2.67»SX/SZ) 
+CXi SV (1,2) — PPD» (SY/SZ) 
+CYl NEXT 
!0   1040   Fm    I-l    TO   6tF»S(I,l)sS«= 
S(I,2)lH-S(I,3)iUl-V(G,l 
)-V(F, 1):U2-V(B,2)-V<F,2 
) 
FL   1050   U3-V(B,3)-V(F,3):V1»V(H, 
l)-V(F, l>tV2-V(H,2)-V(F, 
2>iV3-V(H,3)-V(F,3> 
BJ    1060   N(I.1)-U2«V3-V2«U3:N(I,2 
) -USi V1-V3«U1 1 N ( I , 3) -Ul» 
V2-V1»U2:NEXT 
III    1070    XE-DIST*S2*Cl:YE-DISTtS2 

tSliZE-DIST*C2iM-l 
JO   1080   FOR    I-l    TO    6:E2-S(I,1):H 
X-XE-V (E2, 1 ) I WY-YE-V (E2, 
2) tMZ-ZE-V(E2,3> 
HH   1090    IF    (N<I,1)»WX+N(I,2)»WY+ 

N(I,3)«WZ)<-0   THEN    1140 
II    1100   El-S(I,l)sFOR   J"2   TO   5iE 

2-8 (I, J) I  FOR  K-1    TO  M 
KH   1110    IF   E(K.  1)>E2   AND   E(K,2)- 
El    THEN  E(K,3)-2sQ0TO    11 
30 
EP  1120  NEXT   K:E(M,1)-E1:ECM,2>- 

E2lE(M,3)-llM-«+l 
BH   1130   E1-E2:NEXT   J 
CB  1140  NEXT    It  FOB    I-l   TO   12i  IF 

E(l,3)-0    THEN    1160 
CH   1130    J-E(I,1)!K-E(I,2)!X1-SV( 
J,l)iYl-SV(J,2)iX2-3V(K, 
t) lY2-8V(K,2>ie0SUB   500 
PC    1160    NEXTsTH"TH+6.544983E-02s 
PH»PH-»-6.544985E-02s  IF   SC 
RN<4a    THEN    PPD-PPD+383.3 
s  RETURN 
I  ft   1170   PPD-PPD-583.3JRETURN      ® 
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COMPUTEi's  All  New  Apple  Applications  Special 

COMPUTERS  latest  Apple  Applications  Special  features  in-depth  articles  and  interviews, 
all  the  inside  news  about  Apple,  clearly  written  tutorials,  software  buyer's  guides,  new 
product  information,  and  valuable  ready-to-type-in  programs  for  all  Apple  users. 


APPLICATIONS  SPt^lAL 


tb  App4«:  An  Iniefvtaw 
Wlh  John  ScuBev 


Buur>QS  Sottwors 
Buyer's  Guide 


Apple  Rulei  The  Schoob 

The  Mosi  Popnior 
CofripulBT  In  Educatloo 


Educotbooa!  Soflwoe 
Buyers  Guide 


The£xpandtng 

V^e  Debut  CM  The 
MocnlCeri  Plus 


Manoglng  Your  Mtrey 


Fvt  or  in«  c^v^b ''cc^TV^^^  **■•* 


Ready  To  lype  In  And 
Use  Piogtarvs. 

MouwCurm 
Peoesgn  Yixr  Mocmtcsti 
Cl«oi  Wjlh  rhn  Easy-To- 


Cmota  And  (MVie 
Meiehk>tfi«a  MndDM  . 
OnVou-Apptoi 


AChcient>no 
MxdPuBte 


Apple  owners  find  these  special  Apple 

issues  the  most  understandable, 

complete,  and  valuable  resources 

avallalile  today. 


PLUS 

All  the  programs  in  COMPUTEi's  Apple  Applications 
Special  are  also  available  on  a  timesaving  disk, 
ready  to  run  on  your  Apple  11,  II +  ,  lie,  and  lie. 
The  Disk  costs  only  $12.95  (plus  $2.00  shipping 
and  handling)  and  gives  you  immediate  access  to 
all  the  great  programs  in  this  special  issue. 

Look  for  the  Fall/Winter  1986  issue  of 
COMPUTEi's  Apple  Applications  Special  on  sale 
where  you  buy  other  COMPUTE!  publications,  or 
order  directly  from  COMPUTE!.  This  special  issue 
goes  on  sale  October  7,  1986. 

Send  in  the  attached  order  card  or  call  toll  free 
800-346-6767  (in  NY  call  212-887-8525). 


Features 

The  Latest  At  Apple 

An  inside  look  at  the  newest  products  from  Apple.  Impressive 
hardware,  sophisticated  software. 
Interview:  William  Mensch 

A  fascinating  talk  with  the  designer  of  the  chips  inside  the  mil- 
lions of  Apple  computers.  What  we  can  expect  in  the  coming  years. 

Business  Applications 

Mastering  The  Macintosh 

Power  software  for  the  Macintosh  takes  Apple's  innovative  com- 
puter to  new  heights.  Complete  tutorial  and  application  ideas. 
New  On  The  Wire 

Telecommunications  keeps  exploding — witness  the  new  informa- 
tion services,  new  software,  and  powerhouse  2400  baud  modems. 
Our  telecommunications  specialists  look  at  all  this  and  more. 

At  School 

Experts  At  The  Table 

A  panel  of  well-known  software  developers,  educators,  and 
computerists  explain  where  educational  computing  has  been,  where 
it's  going,  and  why. 
The  Story  Machine 

Children  of  all  ages  can  write,  read,  and  print  stories  up  to  20 
pages  long  with  this  easy-to-use  word  processor  for  all  Apple  H 
computers. 
Solarpix 

Educational  software  that  entertains,  this  tour  of  the  solar  system 
is  a  dazzling  display  of  the  Apple's  graphics  power. 
Hi-Res  Poster  Printer 

Print  hi-res  drawings  in  poster  size  for  banners,  signs,  and  busi- 
ness presentations.  Two  sizes  and  a  simple-to-use  menu  make  it  a 
snap. 

At  Home 

Your  Graphics  Primer 

Tips,  techniques,  and  more  show  how  to  create  Impressive  graph- 
ics on  the  Apple  II. 
Power  Sketch 

This  hi-res  sketching  program  for  the  Apple  II  puts  paint,  draw, 
fill,  air  brush,  and  other  tools  in  every  artist's  hands.  Save  and  load 
screens  to  disk. 
High  Rise 

This  unique  game  of  elevators  and  an  out-of-control  robot  is 
written  entirely  in  machine  language.  Easily  one  of  the  best  Apple 
arcade-style  games  we've  ever  published. 
DOS  Adjust 

Customize  DOS  3.3  with  this  comprehensive  program  that's  easy 
to  use:  no  programming  knowledge  required. 

Apple  User  Groups 

A  complete  list  of  all  Apple  user  groups. 

And  much  more 

Including  reviews,  buyer's  guides,  new  products,  and  useful  programs. 


COMPUTEl  Publicationsjnc.® 

Port  of  ABC  Consumer  Moeozines,  Inc.  ^^^F 

One  o(  the  ABC  Publishing  Componles 

825  7tti  Avenue,  bth  Floor,  New  York,  NY  10019 
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PowerKey  For  Apple 


Patrick  Porrish,  Programming  Supervisor 


This  valuable  utility  puts  52  custom- 
ized strings  or  keywords  instantly  at 
your  fingertips.  You  can  even  create 
several  sets  of  custom  commands  for 
use  with  different  applications.  For 
all  Apple  11  series  computers  with 
DOS  3.3  or  ProDOS. 


Using  an  Apple  II  computer  usually 
involves  a  considerable  amount  of 
typing,  and  most  of  us — good  typ- 
ists or  not — would  be  happy  to 
automate  the  process  of  comm- 
municating  with  our  machine. 
Have  you  ever  wished  you  could 
just  strike  one  key  and  produce  a 
directory,  run  a  program,  or  per- 
form some  common  task? 

"PowerKey"  provides  a  selec- 
tion of  52  different  one-touch 
keywords  which  you  can  customize 
to  your  own  liking.  It  lets  you  ac- 
cess up  to  52  keywords  or  other 
strings  of  your  own  by  pressing 
either  the  Open  Apple  or  Solid  Ap- 
ple key  (or  paddle  buttons  for  those 
who  have  an  Apple  II +,  which 
lacks  these  keys)  along  with  one  of 
the  letter  keys  (A-Z).  Although  the 
program  relies  on  a  short  machine 
language  routine,  you  can  use  it 
without  understanding  machine 
language  at  all. 


Entering  The  Program 

This  utility  is  written  in  three  parts. 
Program  1,  POWERKEY. CUSTOM, 
is  a  BASIC  program  that  lets  you 
create  and  save  tables  of  your  cus- 
tom strings  or  keywords  to  disk. 
Program  2,  POWERKEY.LOADER, 
is  a  BASIC  loader  which  POKEs  the 
machine  language  driver  routine 
into  memory  and  saves  a  copy  of 
this  code  to  disk  in  the  form  of  a 
binary  file.  (Since  Program  2  uses 
the  name  POWERKEY.BINARY  for 
the  file  it  creates,  you  must  not  use 
that  name  for  Program  2  itself.  If 
you  do,  you'll  get  a  FILE  TYPE 
MISMATCH  error  when  Program  2 
is  run.)  Program  3,  POWERKEY- 
.SYSTEM,  is  a  short  BASIC  pro- 
gram which  loads  both  the 
keyword  table  and  the  driver  rou- 
tine, and  then  activates  PowerKey. 
Before  going  any  further,  carefully 
type  in  these  three  programs  and 
save  a  copy  of  each  to  disk. 

Creating  Customized  Keys 

After  entering  Programs  1-3,  load 
and  run  Program  1 ,  which  creates  a 
customized  table  of  keywords  and 
strings.  The  first  prompt  asks  if  you 
want  to  load  a  keyword  table  from 
disk.  Since  this  is  the  first  time 
you've  run  the  program,  no  tables 
yet  exist,  so  you  should  press  N  for 
no.  In  the  future,  after  creating  one 
or  more  tables,  you  could  also  press 


Y  to  gain  access  to  a  preexisting 
table.  If  you  press  Y,  the  program 
displays  a  directory  and  asks  you  to 
enter  the  filename  of  the  table  to 
load.  If  you  press  RETURN  at  this 
prompt  without  entering  a  name, 
PowerKey  looks  for  a  default  file 
named  TABLE. 

If  you've  specified  that  no  key- 
word table  is  to  be  loaded.  Program 
1  reads  in  its  52  default  keywords 
(see  lines  910-960).  The  first  26 
keywords  can  be  accessed  with  the 
Open  Apple  key  (or  the  paddle  0 
button),  and  the  second  26 
keywords  by  the  Solid  Apple  key 
(or  the  paddle  1  button).  You  can 
change  or  rearrange  the  keywords 
in  the  DATA  statements  if  you  like, 
but  make  sure  not  to  add  or  delete 
any  keywords.  You'll  get  an  OUT 
OF  DATA  error  if  there  aren't  at 
least  52  DATA  items. 

Now  PowerKey  displays  key- 
words 1-26  on  the  screen.  To  the 
left  of  each  keyword  is  the  letter 
that  will  access  it.  For  instance,  the 
keyword  AND  is  represented  by  A. 
Each  keyword  or  string  in  the  table 
can  be  up  to  16  characters  long,  but 
they  can  be  combined  for  longer 
commands.  A  table  can  occupy  a 
maximum  of  832  bytes  and  unused 
characters  are  signified  by  dots. 

At  the  bottom  of  the  screen, 
you  are  given  three  options.  You 
can  press  A  to  Alter  a  keyword,  the 
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Solid  Apple  key  (or  paddle  1  but- 
ton) to  look  at  the  second  26- 
keyword  set,  or  W  to  write  the 
completed  table  to  a  disk  file.  You 
can  switch  back  and  forth  between 
keyword  sets  by  pressing  the  Solid 
Apple  key  (or  paddle  1  button)  and 
Open  Apple  key  (or  paddle  0 
button). 

For  practice,  let's  change  CAT- 
ALOG, the  current  default  keyword 
accessed  with  Open  Apple-C.  Se- 
lect the  Open  Apple  keyword  set, 
then  press  A  and  the  program 
prompts  you  for  the  letter  of  the 
keyword  you  wish  to  change.  Enter 
C  for  the  keyword  CATALOG. 
Let's  add  a  carriage  return  to  this 
keyword  so  that  you'll  be  able  to 
examine  the  disk  directory  from  im- 
mediate mode  with  only  one  key- 
stroke. Type  CATALOG  followed 
by  a  backslash  (  \ ),  then  press  RE- 
TURN. The  backslash  always,  stands 
for  a  carriage  return  character. 

The  screen  should  now  reflect 
the  change  you've  made.  Notice 
that  the  backslash  is  shown  as  a 
control  character  (CTRL-M  is 
equivalent  to  RETURN).  Other 
keywords  or  strings  in  the  table  can 
be  altered  in  the  same  manner.  In 
fact,  if  you  anticipate  repeatedly 
using  a  phrase  longer  than  16  char- 
acters in  your  programming,  stretch 
it  out  over  two  or  more  16-character 
strings. 

Once  the  table  suits  you,  press 
W  (for  Write)  to  save  it  to  disk.  At 
this  point,  the  52  strings  in  your 
table  are  converted  to  their  ASCII 
equivalents  and  POKEd  into  mem- 
ory at  37376.  To  distinguish  a  string 
from  the  one  that  follows,  the  last 
character  of  each  string  has  its  high 
bit  set  (128  is  added  to  its  ASCII 
value).  Before  the  program  saves 
the  table,  you  are  allowed  once 
more  to  look  at  the  directory  on  the 
target  disk.  After  this,  a  filename  for 
your  table  is  requested.  Again,  if 
you  strike  RETURN,  the  default 
filename  TABLE  is  chosen  for  you. 
Before  the  program  ends,  you  are 
given  a  chance  to  put  a  copy  of  this 
file  on  other  disks  as  well. 

Installing  The  Driver 

With  the  keyword  table  safely  on 
disk  as  well  as  in  memory,  run  Pro- 
gram 2.  Line  110  of  this  program 
POKEs  the  PowerKey  ML  driver 
routine  into  memory  at  768.  This 


area  is  safe  from  BASIC,  so  Power- 
Key  should  not  interfere  with,  or  be 
overwritten  by,  most  programs.  Line 
130  saves  a  copy  to  disk  using  the 
filename  POWERKEY.BINARY. 

PowerKey  is  now  ready  to  be 
activated.  Type  CALL  —768  and 
press  RETURN.  Then,  press  Open 
Apple  (or  paddle  button  0)  along 
with  the  A  key.  The  keyword  AND 
should  appear  on  the  screen.  Press 
RETURN  and  try  another  one.  Hit 
Open  Apple  and  C  for  CATALOG. 
Immediately,  a  directory  of  your 
disk  appears  on  the  screen  (recall 
that  we  added  a  carriage  return  to 
CATALOG). 

Try  out  some  more  keywords, 
using  the  Solid  Apple  (paddle  but- 
ton 1)  set  as  well.  The  computer 
recognizes  your  keywords  and 
strings  from  immediate  and  pro- 
gram mode  as  well  as  from  the 
monitor. 

Putting  It  All  Togettier 

Because  PowerKey  is  on  your  disk 
as  a  binary  file,  it  can  easily  be 
loaded  and  run  by  other  programs. 
In  fact,  this  is  just  what  Program  3 
does.  It  sets  HIMEM  to  protect  the 
reserve  space  for  the  keyword  table, 
then  asks  you  to  specify  the  name 
of  the  table  to  be  loaded  from  disk 
(press  RETURN  alone  at  the 
prompt  to  load  the  default  file  TA- 
BLE). The  POWERKEY.BINARY 
machine  language  file  created  by 
Program  2  is  loaded  into  memory, 
and  activated  with  the  appropriate 
CALL.  You  can  even  have  Power- 
Key  automatically  loaded  when 
you  boot  your  disk  if  you  use  DOS 
3.3.  Simply  save  Program  3  as  the 
HELLO  file  on  the  desired  disk. 

You  can  also  load  PowerKey 
from  immediate  mode.  With  DOS 
3.3,  type  in  the  following  line  (sub- 
stitute the  appropriate  table  file- 
name for  TABLE): 

HIMEM:37376:PRINT  CHR$(4)"BLOAD 
TABLE,A37376":PRINT  CHR$(4) 
"BLOAD  POWERKEY.BINARY":CALL 

768 

If  you  are  using  ProDOS,  substitute 
this  line: 

HIMEM:36352:PRINT  CHR$(4)'TBLOAD 
TABLE,A37376":PRINT  CHR$(4) 
"BLOAD  POWERKEY.BINARY":CALL 

768 

How  It  Works 

PowerKey  works  basically  the  same 


whether  you  are  using  DOS  3.3  or 
ProDOS.  In  either  operating  sys- 
tem, it  relies  on  a  method  known  as 
a  wedge.  The  input  vector  that  nor- 
mally points  to  the  keyboard  input 
subroutine  (KEYIN)  at  $FD1B,  is 
rerouted  to  point  instead  to  the 
starting  location  of  our  machine 
language  code.  Once  this  is  done, 
the  program  checks  a  flag  to  see 
whether  it  is  already  in  the  process 
of  printing  a  keyword.  If  not,  it 
checks  the  Open  and  Solid  Apple 
keys.  The  routine  also  responds  to 
paddle  button  presses,  since  the 
Open  and  Solid  Apple  keys  are 
read  by  the  same  circuitry  that 
reads  the  buttons. 

If  one  of  the  special  keys  is 
pressed,  PowerKey  begins  printing 
the  one-touch  keyword.  First,  the 
relative  number  (0-51)  of  the  de- 
sired keyword  is  determined,  a  flag 
is  set,  and  the  keyword  is  located  in 
the  table.  The  first  character  of  the 
word  is  then  put  in  the  accumula- 
tor, the  table  location  is  updated, 
and  we  return  to  BASIC.  The  oper- 
ating system  then  prints  the  charac- 
ter in  the  accumulator  and  returns 
to  the  program  for  another  charac- 
ter. The  next  time  through  the  pro- 
gram, another  character  is  loaded 
into  the  accumulator  since  the  flag 
is  set.  This  process  continues  until 
the  last  character  of  the  keyword  or 
phrase  is  detected  (this  character 
has  the  high  bit  set).  The  flag  is  then 
set  to  zero  and  we're  returned  to 
BASIC. 

Before  all  this  can  happen, 
however,  the  program  must  go 
through  a  short  initializadon  rou- 
tine to  determine  which  operating 
system  is  installed.  This  is  done  by 
looking  at  the  starting  location  for 
ProDOS's  global  page  ($BF).  When 
ProDOS  has  been  booted,  the  value 
in  location  $BFOO  is  always  76  (rep- 
resenting the  JMP  command).  If 
this  is  the  case,  then  the  vector  that 
points  to  KEYIN  (CHINl  at  $BE32- 
$BE33)  is  loaded  in  low-byte/high- 
byte  format  with  the  starting  ad- 
dress for  our  routine,  and  the 
program  returns  to  BASIC, 

If  the  value  at  $BFOO  is  some 
other  value,  then  the  program  as- 
sumes we  are  in  DOS  3.3.  In  this 
case,  the  input  vectors  (KSW  for 
KeySWitch)  at  $38-$39,  which  nor- 
mally point  to  KEYIN,  are  loaded  in 
a  likewise  manner  with  the  starting 
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address  of  our  program.  We  then 
jump  to  a  routine  at  $3EA  which 
updates  the  input  pointers  with 
these  new  values,  reconnects  DOS, 
and  returns  us  to  BASIC.  Hence- 
forth, with  either  operating  system, 
our  routine  gets  called  so  we  can 
print  our  keywords. 


Program  1 :  Keyword  Table 
Customlzer 

For  Instructions  on  entering  these  listings, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  (n  triis  issue  of  compute!. 


17  100 
C6  110 
?«  120 


IB  130 


19  140 


D3 

150 

CI 

160 

F? 

170 

55 

100 

E7 

190 

7F 

200 

K 

210 

SD 

220 

5A  230 
<H  240 
U   250 


REM  QMNIKEY. CUSTOM 

TEXT  :TL  =  37376 

HIMEM:  TL:  IF  PEEK  (43896 

)  =  76  THEN  HIMEM:  TL  -  1 

024:  REM  TL  IS  TftBLE  LOCA 

TION;  IF  PRODOS,  HIMEM  IS 

MOVED  DOWN  IK  MORE 
FDR  I  =  768  TO  777:  READ 
fl:  POKE  I, A:  NEXT  :  DATA 
104, 168,104, 166,223, 154,7 
2,152,72,96:  REM  DNERR  FI 
X 

DIM  AS(52>!F*  =  ".. 

":R*(0)  =  "OPEN-fl 

PPLE":R»(1)  =  "SDLID-APPL 

E":P  =  0:  REM  APPLE  KEYS 

CORRESPOND  TO  PADDLE  BUTT 

ONS 

HOME  :  HTAB  11:  VTAB  6:  I 

NVERSE  :  PRINT  "KEYHPRD  C 

USTDMIZER";  NORMAL 

VTAB  10:  PRINT  "WANT  TO  L 

OAD  A  TABLE  FROM  DISK";; 

QOSUB  790 

IF  X  <  >  B9  THEN  200 

BDSUB  830 

W  =  0:V  =  13:  GOSUB  480: 

BQTD  210 

FOR  I  =  1  TD  52:  READ  A* ( 

I):  NEXT 

GOSUB  280 

X  =  PEEK  (  -  16384) :Y  =  P 

EEK  (  -  16287): 2  =  PEEK  ( 

-  16286) ;  IF  X  <  =  127  A 
ND  Y  <  =  127  AND  Z  <  =  12 
7  THEN  220 

POKE  -  16368, 0:X  =  X  -  12 
8:  IF  X  =  87  THEN  570 

Z  >  127  AND  P  =  0  THEN 
l!  GOTO  210 


IF 

P 
IF  Y  >  127  AND  P  =  1  THEN 

P 
IF 


=  0i  SOTO  210 
ti   260  IF  X  =  65  THEN  360 
!C  270  SOTO  220 
31  280  HOME  :  VTAB  2:  HTAB  11:  I 

NVERSE  :  PRINT  R»(P);:  ND 

RMAL  :  PRINT  "  KEYWORDS! " 

:  PRINT 
n   290  PRINT  :L  =  1:H  =  13:  FOR 

J  =  1  TO  22  STEP  21:  FOR 

I  =  L  TO  H:  INVERSE  :  HTfl 

B  J:  PRINT  CHR»  (64  +  I); 

:  NORMAL  :  PRINT  "  "{ 
M  300  D«  =  A$(I  +  (P  =  1)  »  26) 

:  FOR  Z  =  1  TD  LEN  (D*):X 
=  ASC  (  MID*  (D*,Z, 1)1: 

IF  X  <  32  THEN  INVERSE  ! 

PRINT  CHR*  (X  +  64);:  NOR 

MAL  :  GOTO  320 
98  310  PRINT  CHR*  tX); 
5fl  320  NEXT  Z:  PRINT  MIDt  (Ft,l, 

16  -  LEN  (A* (I  +  (P  =  1) 


»  26) ) )s  NEXT  :L  =  14: H  = 
26:  VTAB  5:  NEXT 
FS  330  VTAB  20:  PRINT  "PRESS:  "; 
:  INVERSE  :  PRINT  "A";:  N 
ORMAL  :  PRINT  "  TO  "|t  IN 
VERSE  !  PRINT  "ALTER"; i  N 
ORMAL  :  PRINT  "  A  KEYWORD 

Bfl  340  VTAB  21:  HTAB  B:  INVERSE 
:  PRINT  R«(P  =  0)j:  NORMA 
L  s  PRINT  "  FOR  "i!  INVER 
SE  :  PRINT  R«<P  =  0);:  NO 
RMAL  !  PRINT  "  SET,"!  HTA 
B  8:  INVERSE  !  PRINT  "W"l 
:  NORMAL  :  PRINT  "  TO  ";: 
INVERSE  :  PRINT  "WRITE"; 
:  NORMAL  :  PRINT  "  TABLE 
TD  DISK. " 

48  350  REM  INPUT  KEYWORD 

91  360  VTAB  20:  HTAB  28:  PRINT  " 
":  HTAB  8:  PRINT  " 

":  HTAB  8:  PRINT  " 


28  370 

71  380 

Be  390 

V   400 

3B  410 

B»  420 
«?  430 


?F  440 
1)7  450 
Si   460 


92  470 
C2  480 
47  490 


57  500 
74  510 
£9  520 

!£  530 


J7  540 
IF  550 
i3  560 
EF  570 


2F  580 

2E  590 

EA  600 
iD  610 


VTAB  201  PRINT  "ENTER  KEY 

(A-Z)  TO  CHANGE  "j:  INPU 
T  L»:L  -  ASC  (L*)  -  64:  I 
F  L  <  0  OR  L  >  26  OR  LEN 
(L*)  >  1  THEN  370 
VTAB  22:  PRINT  "NEW  KEYWD 
RD  FOR  ";:  INVERSE  :  PR IN 
T  L»; :  NORMAL  :  PRINT  "  ? 
";:  PRINT  F* 
VTAB  24:  PRINT  "('\'  WILL 

EMBED  A  CARRIAGE  RETURN) 
";:  HTAB  20:  VTAB  22; C  -= 
0;D*  =  "" 
X  =  PEEK  (  -  16384) !  IF  X 

<  =  127  THEN  400 
POKE  -  16368, 0:X  -  X  -  12 
8:  IF  X  =  13  THEN  460 
IF  X  =  72  THEN  X  =  13 
C=C+1:D*=D»+  CHR* 
(X):  IF  X  <  32  THEN  INVER 
SE  !  PRINT  CHR»  (X  +  64); 
:  NORMAL  :  SOTO  450 
PRINT  CHR*  (X) ; 
IF  C  <  16  THEN  400 
A«(L  +  (P  =  1)  t  26)  =  D» 
:  FOR  I  "  1  TO  400:  NEXT 
!  SOTO  210 
REM  LOAD  TABLE 
ONERR  GOTO  750 
HOME  :  HTAB  6:  VTAB  10:  G 
QSUB  690:  PRINT  s    PRINT  C 
HR«  (4)"BL0AD  "FL«:  POKE 
216,0 

VTAB  16:  HTAB  10:  PRINT  " 
READING  TABLE. . . " 
C  =  0:  FDR  I  =  1  TO  52: EF 

=  0 
A  =  PEEK  (TL  +  C) :  IF  A  > 

127  THEN  A  =  A  -  128: EF 
=  1 

A* (I)  »  fi»(I)  +  CHR*  (A): 
C  =  C  +  Is  IF  EF  THEN  NEX 
T  I 

IF  I  <  53  THEN  520 
RETURN 

REM  SAVE  TABLE 
HOME  :  VTAB  7:  HTAB  9:  NO 
RMAL  :  PRINT  "...SETTING 
UP  TABLE" 
C  =  0:A  =  0!  FDR  I  =  1  TO 

52:C  =  C  +  A:A  =  LEN  (A* 
( I ) ) s  FOR  J  =  1  TO  A  -  1 
(  MID*  (A«(I),J,1 
Q  =  92  THEN  0-1 


G  =  ASC 

))::  IF 

3 

POKE  TL 

XT  J 

B  =  ASC 

) )  +  128 


B  «  141 

19 

620 

POKE  TL  +  C  +  A  -  1,B:  NE 
XT  I 

94 

630 

VTAB  10:  HTAB  6:  PRINT  "R 
EADY  TO  SAVE  TABLE  TD  DIS 
K. "!  GOSUB  830} W  =  is  HOM 

E 

ONERR  GOTO  750 

BC 

640 

Bl 

650 

VTAB  10:  HTAB  6!V  =  13:  G 

+  C  +  J 


1,G:  NE 


(  RIGHT*  (A»(l) ,1 
:  IF  B  =  220  THEN 


5S  660 

FB  670 

9E  680 
SB  690 

CA  700 

IE  710 

!E  720 

ID  730 
C7  740 
9f  750 

FD  760 

<2  770 

IB  780 
BI  790 

CC  800 
23  810 


IC  820 
11  830 


22  840 
4F  850 
Bi  860 


DE  870 

n  880 

33  890 

43  900 
C5  910 

91  920 

A3  930 

2i  940 
12  950 


OSUB  6901  PRINT  s  PRINT  C 

HR*  (4)"BSAVE  "FL«",A"  ST 

R«  (TL)",L832";  POKE  216, 

0 

VTAB  16:  HTAB  6!  PRINT  "A 

NOTHER  COPY";:  GOSUB  790 

IF  X  =89  THEN  HOME  :  GOT 

0  640 
END 

PRINT  "TABLE  FILENAME!  "; 
!  INPUT  FL»:  IF  FL*  -  "" 
THEN  FL*  -  "TABLE" 
VTAB  V:  PRINT  "PUT  PROPER 
DISK  IN  DRIVE  &  HIT  <RET 
URN>."i 
X  -  PEEK  (  -  16384)!  IF  X 

<  »  127  THEN  710 

POKE  -  16368, 0:X  =  X  -  12 

8:  IF  X  <  >  13  THEN  710 

RETURN 

REM  DISK  ERROR  ROUTINE 

PRINT  :  HTAB  8:  PRINT  "DI 

SK  ERROR  #"  STR*  (  PEEK  ( 

222))  "." 

CALL  760:  VTAB  IS:  VTAB  2 

01  HTAB  8:  PRINT  "TYPE  'C 
'  TO  CONTINUE";!  GET  S«: 
IF  W  =  0  THEN  480 

IF  W  =  1  THEN  HOME  :  SOTO 

640 
HOME  :V  =  15:  GOTO  840 
PRINT  "  (";:  INVERSE  :  PR 
INT  "Y";!  NORMAL  :  PRINT 
"/";:  INVERSE  :  PRINT  "N" 
;:  NORMAL  {.PRINT  ")7" 
X  =  PEEK  (  -  16384) :  IF  X 

<  =  127  THEN  800 

GET  S»:  POKE  -  16368, 0:X 

=  X  -  128:  IF  X  <>  78  AN 

D  X  <  >  89  THEN  800 

RETURN 

V  =  16:  VTAB  13:  PRINT  "N 

EED  A  LOOK  AT  THE  CATALDB 

FIRST";:  GOSUB  790:  IF  X 

-  78  THEN  RETURN 
W  =  2!  ONERR  GOTO  750 
eOSUB  700 

POKE  34,0:  HOME  :  HTAB  12 
:  PRINT  "DISK  CATALOG:": 
HTAB  8:  PRINT  " 


POKE  34,2:  PRINT  :  PRINT 

CHR*  (4) "CATALDB"!  POKE  2 

16,0 

HTAB  8:  PRINT  :  PRINT  "CA 

TALOG  ANOTHER  DISK";!  BOS 

UB  790!  IF  X  -  89  THEN  V 

»  23s  GOTO  850 

PRINT  I  PRINT  "PRESS  RETU 

RN  TO  CONTINUE"!  GOSUB  71 

0 

POKE  34,0:  RETURN 

REM  PADDLE  0  OR  OPEN  APPL 

E  KEY  WORDS 

DATA  AND.BLQAD  , CATALOG, D 

ATA  ,END,FOR,B03UB,HOME,I 

NPUT , BET , READ , LOAD  , M ID*  t 

DATA  NEXT, OR, PRINT, STOP, R 

UN  .SAVE  .THEN, TEXT, VTAB, 

WRITE, PEEK, REM, CONT 

REM  PADDLE  1  OR  CLOSED  AP 

PLE  KEY  WORDS 

DATA  ASCC.BRUN  , CLOSE, DEL 

.DIM, FLASH, GOTO, HTAB, INVE 
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RSE, RESTORE, NORMAL,  LIST 
Fft  ■?60  DATA  LEFT*  (,  NEW,  OPEN,  POKE 
,  R I  SHT«  (,  RETURN ,  STR«  (,  3TE 
P, TAB ( , VERIFY, INT ( , CALL, L 
EN ( , CLEAR 

Program  2:PowerKey  Binary 
File  Creator 

A*  100  REM  OMNI  KEY,  LOADER 

OJ  110  FOR  1  =  76B  TO  939:  READ 

A:  POKE  I,A:X  =  X  +  A:  NE 

XT 
M    120  IF  X  <  >  18010  THEN  PRINT 
"ERROR  IN  DATA  STATEMENT 

S.":  STOP 
E2  130  PRINT  CHR«  (4)  "BSAVE  DMNI 

KEY. BINARY, A76e,L172" 
Bl  140  DATA  162,146,134,7,160,0, 

132,6 
M    150  DATA  162,33,160,3,173,0,1 

91,201 
li    160    DATA    76,208,7,142,50,190, 

140,51 
IF    170    DATA    190,96,134,56,132,57 

,76,234 
1(    180    DATA    3,44,169,3,48,94,32, 

27 
28   190    DATA    253,72,32,74,255,173 

,97,192 
ftj  200    DATA    16,7,169,0,141,170,3 

,240 
Fft  210    DATA    10,173,98,192,16,65, 

169,26 
F7  220    DATA    141,170,3,104,56,233 

, 193,48 
Ci   230    DATA    55,201,26,176,51,24, 

109, 170 
4A  240    DATA    3,141,170,3,169,255, 

141,169 
F?  250  DATA  3,173,170,3,240,38,1 

60,0 
F4  260  DATA  162,0,230,6,208,2,23 

0,7 
n   270  DATA  177,6,48,2,16,244,23 

2,236 
ID  280  DATA  170,3,208,238,32,63, 

255,230 
DB  290  DATA  6,208,9,230,7,208,5, 

104 
If  300  DATA  32,63,255,96,160,0,1 

77,6 
iC  310  DATA  141,171,3,230,6,208, 

2,230 
BB  320  DATA  7,173,171,3,48,4,24, 

105 
57  330  DATA  128,96,169,0,141,169 

,3, 133 
2!  340  DATA  6,169,146,133,7,173, 

171,3 
11  350  DATA  96,0,0,0 

Program  3:  PowerKey 
Loader 

73  100  REM  DMNI  KEY.  SYSTEM 

K  110  TEXT  :TL  =  37376 

IS  120  HIMEM:  TL:  IF  PEEK  (48896 

)  .  76  THEN  HIMEM!  TL  -  1 

024 
M  130  HOME  !  PRINT  "ENTER  KEYWO 

RD  TABLE  NAME";:  INPUT  N« 

!  IF  N»  =  ""  THEN  N»  -  "T 

ABLE" 
(5  140  PRINT  CHR*  (4)  "BLOAD  "N*" 

,A"  SIR*  (TL) 
Ai  150  PRINT  CHR*  (4t  "BLOAD  OMNI 

KEY. BINARY" 
iB  160  CALL  768:  PRINT  !  PRINT  " 

OMNI KEY  IS  ACTIVATED.":  E 

ND  @ 


Atari  130XE 
Automated 

RAM  Disk 

Stephen  J,  Rockower 


Offering  high  speed  and  instanta- 
neous access  to  programs  and  files, 
the  Atari  130XE's  RAM  disk  is  one  of 
its  most  attractive  features.  Now  it's 
even  more  effective  with  this  utility 
that  moves  selected  programs  and 
files  into  the  RAM  disk  automatically 
whenever  you  boot  the  system.  Your 
system  will  be  custom  configured  on 
power  up.  A  floppy  disk  drive  and 
Atari  DOS  2.5  are  required. 


If  you  own  an  Atari  130XE,  you 
may  have  a  number  of  BASIC  pro- 
grams or  other  files  which  you  like 
to  put  on  the  RAM  disk  whenever 
you  boot  up.  Once  in  the  RAM  disk, 
those  files  are  available  almost  in- 
stantly, but  it's  a  tedious  process  to 
copy  each  file  to  RAM  manually. 
"RAM  Disk  Loader"  for  the  Atari 
130XE  automates  that  chore  with  a 
custom  AUTORUN.SYS  file.  When 
you  boot  the  system,  it  automatical- 
ly transfers  selected  BASIC  pro- 
grams and  text  files  from  the  default 
drive  (Dl:)  to  the  RAM  disk  (D8:). 

Typing  Instructions 

Here's  how  to  create  the  RAM  Disk 
Loader.  First,  boot  your  computer 
with  DOS  2.5.  Go  to  the  DOS  menu 
to  select  option  L;  then  load  SET- 
UP.COM.  Use  option  2  to  create  an 
AUTORUN.SYS  file  named 
D1T0D8.SAV.  Now  go  back  to 
BASIC  and  type  in  the  program. 


Note  that  the  DATA  statement 
in  line  30  should  contain  the  names 
of  the  BASIC  programs  or  text  files 
that  you  want  to  transfer  to  the 
RAM  disk  on  power-up.  When  add- 
ing these  names,  include  the  full 
name  and  extender  (such  as  PROG- 
.BAS),  but  not  the  drive  specifier 
(don't  put  Dl:  at  the  beginning  of 
the  name).  Every  extender  must  be 
exactly  three  characters  long;  add 
extra  spaces  if  necessary  to  pad  the 
extender  to  the  correct  length.  The 
last  DATA  item  in  this  series  must 
be  END  which  acts  as  a  marker  for 
the  end  of  the  list  of  filenames. 

When  you  type  line  40,  substi- 
tute the  name  of  the  program  you 
want  to  run  when  the  system  boots. 
For  example,  if  you  want  to  run 
MYPROG.BAS  from  drive  Dl:,  line 
40  should  look  like  this: 

40  READ  F$:IF  F$  =  "END"  THEN  RUN 
"Dl:MYPROG.BAS" 

Note  that  this  program  can  be  one 
of  the  programs  you  just  put  on  the 
RAM  disk  (to  run  such  a  program, 
use  the  D8:  drive  prefix). 

Be  very  careful  when  typing 
lines  290  and  560,  which  contain 
tiny  machine  language  routines 
stored  in  strings.  These  strings  must 
be  typed  correctly,  or  the  computer 
will  probably  crash.  The  REM  state- 
ments at  the  end  of  each  line  ex- 
plain exactly  which  characters  to 
type  in  the  strings.  After  you  finish 
typing  in  the  program,  be  sure  to 
save  a  copy  to  disk.  For  the  program 
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to  work  properly,  you  must  use  the 
same  filename  you  specified  when 
you  created  the  AUTORUN.SYS 
file  (D1T0D8.SAV).  Now  you  are 
ready  to  boot  up  again.  This  time, 
all  your  programs  and  data  will  be 
on  D8. 

With  only  slight  modifications, 
you  can  use  this  program  to  transfer 
programs  from  Dl:  to  D2:  (rather 
than  to  D8:)  without  having  to  copy 
each  file  manually.  This  modifica- 
tion allows  you  to  do  batch  file 
copies  from  one  drive  to  another.  A 
second  possibility  is  to  eliminate 
the  DATA  line  altogether  and  read 
the  filenames  from  a  previously 
created  disk  file  rather  than  from 
DATA.  With  a  statement  like  IN- 
PUT#1,STRING$,  you  can  bring  in 
the  name  of  each  file  to  be  trans- 
ferred. The  file  could  terminate 
with  the  name  of  the  next  program 
to  run  (IF  STRINGS = "END"  THEN 
INPUT#1, STRINGS  :RUN 
STRINGS). 

Program  Techniques 

The  program  begins  by  READing 
filenames  one  at  a  time  from  the 
DATA  statements  in  line  30.  If  the 
name  is  not  END,  the  program 
loops  through  the  directory  sectors 
(361-368)  one  at  a  time  in  search  of 
the  file.  When  the  file  is  found, 
FLEN  holds  its  length. 

The  subroutine  named  GET- 
BYTES  determines  whether  this  is  a 
BASIC  program  or  a  file  containing 
text  or  other  data.  Since  the  file 
header  for  a  BASIC  program  always 
starts  with  two  zeros,  we  assume 
that  anything  lacking  two  zeros  in 
the  header  is  not  BASIC.  The  next 
six  pairs  of  header  bytes  contain 
information  about  the  size  and  lo- 
cation of  certain  memory  pointers. 
We  are  interested  in  the  last  two 
bytes,  which  tell  us  how  many 
more  bytes  must  be  loaded  to  find 
the  end  of  the  file  (DEND).  The 
computation  in  line  680  adjusts  the 
total  number  for  BASIC  program 
files. 

At  this  point,  the  program 
opens  an  lOCB  (Input/Output 
Control  Block)  to  read  the  bytes 
from  FROM$  into  the  string  ZZ$. 
Then  Z2$  is  manipulated  to  allow 
for  text/data  (FLEN*  125)  or  a 
BASIC  program  (actually  held  as  a 
string  of  length  BYTES).  Before 
writing  the  string,  we  must  find  the 


true  end  of  the  data.  If  you  think 
about  it,  a  text  file  of  FLEN  charac- 
ters will  have  fewer  than  FLEN*  125 
bytes.  By  eliminating  the  zero 
bytes— CHR$(0),  the  heart  sym- 
bol— we  arrive  at  the  true  length  of 
the  file.  This  feature,  incidentally, 
makes  the  program  unsuitable  for 
use  with  machine  language  files, 
since  ML  programs  often  contain 
one  or  more  zero  bytes. 

Once  you  have  this  program 
working,  you're  likely  to  find  many 
uses  for  it.  I  use  it  to  move  a  main 
menu  program  onto  the  RAM  disk, 
along  with  a  number  of  programs 
and  files  I  use  to  manage  our  house- 
hold accounts.  This  method  takes 
20  to  30  percent  less  time  than  load- 
ing in  the  same  files  manually. 


Atari  130XE  RAM  Disk  Loader 

For  instructions  on  entering  ttiis  listing,  pleos© 
refer  to  "COMPUTEI's  Guide  1o  Typing  In 
Programs"  in  this  issue  of  compute!. 

CK  15  POKE  712,14BtP0KE  559, 
0IPOKE  8,255lP0KE  731, 
1 
PP  Z0  DIM  A*<128)  ,  ZZ«(125«15 
0) ,F*(15) , FROM* (15) ,RD 
ISK«(1S) ,B*(16) ,FNAME« 
(16) 
M25  TRAP  710 
Ki  30  DATA  JUNK.l    ,  JUNK.  2 

, D1TDD8. BXE.END 
SL40  READ  F»!  IF  F«="END"  TH 
EN  RUN  "DlsNEXTPRQQ.SA 
V" 
KK  50  FOR  SNUn>361  TO  366 
Pll  60  CLOSE  ttl:FLEN-0 
JJ  70  A«-CHR«  (0)  !  A«C128)-CHR 

»(0) t A* (Zl^A* 
FC  90  DRIVE-UTYPE"B2iBUF-AD 
R(A«>ieOSUB  260tREn  "D 
ISC"  ROUTINE 
110  100  SOSUB  3301  REM  "DECODE 

"  ROUTINE 
JB110  IF  FLEN  THEN  3NUM-36B 
BF  120  NEXT  3NUH 
HI  130  REM 

as  140  FROM*-"Dll  "I  FROM*  (LEN 

(FRD«») +l)-F«iRDI3K«- 

FROM* I RD I SK« ( 2 , 2 ) - " a " 

NF150  60SUB  600:REM  "GETBYT 

ES" 
M170  INDEX-BYTES*  (BYTESO0 

)+FLEN«125« (BYTE9-0) 
IJ  1B0  ZZ«-""  n  ZZ«(1)-CHR«(0) 
; ZZ* (INDEX )=CHR»(0> : Z 
Z»(2)-ZZ* 
(11190  OPEN  #2,a,  0,RDISK«iaP 

EN  #1,4,0, FROM* 
DC  200  I0CB-llTYPe-7!BUF-ADR 
(ZZ*)iQaSUB  500:REN  " 
IQCB"  FOR  READ 
lli;210  IF  BYTES>e  THEN  220 
EK211  IF  ZZ*(LEN(ZZ*>  )-CHR« 
(0)  THEN  ZZ»-ZZ*(1,LE 
N(ZZ*)-1> iBDTO  211 
FC212  INDEX-LEN(ZZ«) 
IIP  220  IOCB-21  TYPE"lliBUF-AD 
R(ZZ*)lG0SU6  S00IREM 
"lOCB"  FOR  WRITE 
BE  230  CLOSE  ttl:  CLOSE  «2 


DD  240 
GD  250 
IK  260 


}H  280 


liC290 


HD  300 

HI  310 

HJ  320 

f)L  330 

CI  340 

M  350 

HI  360 


QOTD  40 
END 

REM  PROCEDURE  "DISC- 
POKE  779, INT(SNUM/256 
)lPOKE  77B, SNUM-256*I 
NT(SNUM/2S6) 
POKE  769,DRIVE:P0KE  7 
73,  INT(BUF/2S6)  t  POKE 
772, BUF-256«INT(BUF/2 
56)  J  POKE  770, TYPE 
X-USR(ADR("h  SEt.>")) 
iREM  D. 104,32,83,228, 
96  or  small  h,spaca. 
Cap.  S,  inv*rs>  Binall 

d.ctrl-. 
RETURN 
REM  TYPE-82  FDR  READ, 

87  FOR  WRITE 
REM 
REM  PROCEDURE  "DECODE 


a  370 

NF  380 

DI  390 
n  394 

EP  400 

EJ  410 

CK  440 
Bt  470 
m  4B0 
IJ490 
IDS00 
EL  510 


LF  520 
Al  530 

U  540 


JD  550 


KA  560 


FC570 
HN  580 
[C  590 
no  600 

FN  610 
CF  620 
OF  630 

CA  640 
Ci  630 
DD  660 
HK  670 
HH  680 
6J  690 
HH  700 
HII  710 
PO  720 
IL  730 


FLEN-0 
FOR  A-1  TO 
B*-A*( (A-1) 
)  I  IF  ASC(B* 

THEN  8DT0 
FLEN-A3C(B* 
3C(B*{3) ) 
FSTART-A3C( 
*ASC(B*(5) ) 
FNAME*-B*{6 
IF  FNAME*(L 
)-"  "  THEN 
ME*(1,LEN(F 
BOTO  394 
FNAME* {LEN( 
-" .  " n  FNAME* 
*)+l ) -B«( 14 
IF  FNAME*-F 
iBDTO  470 
FLEN-0 
NEXT  A 
RETURN 
REM 

REM  Procadu 
REM  ASSUMES 
ADY  OPEN  FO 
WRITE 

BL0CK-B32+I 
POKE  BLOCK+ 

READ-7,MRI 
POKE  BLOCK+ 
236) sPOKE  B 
-236*INT(BU 
POKE  BLOCK+ 
X/256) iPQKE 
NDEX-2S6*IN 
6) 

I-USR  (ADRC 
iaCB*16> :RE 
vara*  t,     L, 

d 

CLOSE  «IOCB 

RETU 

REM 

REM 

ES" 

OPEN 

SET 

IF  I 

BYTE 

FDR 

BET 

NEXT 

DEND 

BYTE 

CLOS 

RETU 

REM 

POKE 

7  "E 

"  AT 

+  256 


B 

*16-t-l,A«16 

(1,  1)  )  >127 

460 

(2)  )-t-256tA 

B*  (4) ) +256 

,  13) 

EN(FNAME*) 
FNAME*-FNA 
NAME»)-1) I 

FNAME*) +1) 
(LEN (FNAME 
,  16) 
*  THEN  A-B 


ra  "lOCB" 

lOCB  ALRE 
R  READ  OR 

0CB*16 
2,TYPEiREM 
TE-1  1 

5, INT(BUF/ 
LOCK+4, BUF 
F/256) 
9,  INTdNDE 
BLDCK+B, 1 
T(INDEX/25 

hhhDLVE")  . 
M  h  ,  h  ,  h  ,  i  n 
V,  inveraa 


RN 

PROCEDURE  "QETBYT 

I    #1,4,0, FROM* 

ttl,I>BET    ttl,J 

<>0    OR    JO0    THEN 
:S>i0sQOTD     690 

X-1     TO     6 

#1, ItBET    #1, J 
X 

-256«J+I 

S-DEND-256+14 

E  #1 

RN 

559, 34 
RROR  "J  PEEK (195); 

LINE  ";PEEKeiB6) 
«PEEK(1B7>       (S 
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IF-THEN-ELSE 

For  SpeedCalc 


This  tutorial  shows  you  hcfw  to  get 
more  out  of  SpeedCalc.  By  using 
clever  formulas,  you  can  set  up  a 
spreadsheet  to  perform  different  com- 
putations based  on  the  result  of  logi- 
cal IF  tests.  The  techniques  apply  to 
any  version  of  SpeedCalc,  COM- 
PUTEl's  powerful  machine  language 
spreadsheet  program.  (The  Commo- 
dore 64/128  version  of  SpeedCalc 
appeared  in  the  January,  1986  issue  of 
COMPUTE!.  The  Apple  U  and  Atari 
versions  were  published  in  February 
1986  and  March  1986,  respectively.) 


SpeedCalc,  the  versatile  spreadsheet 
program  published  in  the  January- 
March,  1986  issues  of  COMPUTE!, 
offers  a  great  variety  of  built-in 
functions.  It  supports  all  the  math 
operations  of  BASIC,  as  well  as  two 
new  ones  (@ave  and  (5)sum),  but 
there  is  no  specific  mention  of  how 
the  program  can  perform  condi- 
tional operations  and  make  deci- 
sions. Here  are  techniques  to  make 
SpeedCalc  calculate  based  on  the 
outcome  of  logical  tests  modeled 
after  the  IF-THEN-ELSE  construc- 
tion in  BASIC. 

More  Than  A 
Glorified  Coicuiator 

Many  people  use  a  spreadsheet  as 
little  more  than  a  glorified  calcula- 
tor: Once  a  sheet  has  been  set  up, 
you  punch  a  button  and  the  pro- 
gram performs  a  large  number  of 
related  calculations.  While  the  re- 


Anthony  Chandler 


suit  of  one  calculation  frequently 
serves  as  input  for  another,  the  pro- 
cess doesn't  involve  anything  re- 
sembling inteUigence  on  the  part  of 
the  program.  Nevertheless,  the 
SpeedCalc  spreadsheet  program  can 
test  conditions  and  take  action 
based  on  the  results.  The  process 
works  very  much  like  the  familiar 
IF-THEN-ELSE  construction  in 
BASIC. 

In  plain  English,  a  typical  IF- 
THEN-ELSE  construction  would  be 
translated  as,  "IF  a  certain  condi- 
tion is  true,  THEN  do  the  first  task, 
ELSE  if  the  condition  is  false,  do  the 
second  task."  A  computer  can't 
work  with  abstract  concepts  such  as 
truth  or  falsity,  but  it's  very  good  at 
telling  the  difference  between  one 
numeric  value  and  another.  When 
the  computer  performs  an  IF  test  in 
BASIC,  it  uses  numeric  values 
(usually  —  1  and  0)  to  represent  true 
and  false,  respectively.  You  can 
verify  this  by  entering  the  following 
statements  in  BASIC  direct  mode: 

A"1:PRINT  (A  =  l) 
A  =  I):FRINT  (A  =  l) 

In  Microsoft  BASIC  and  most 
other  versions,  the  computer  prints 

—  1  and  0,  indicating  that  it  uses  —  1 
to  represent  a  true  condition  and  0 
to  represent  a  false  condition.  The 
BASICS  on  Apple  II  and  eight-bit 
Atari  computers  use  1  instead  of 

—  1  to  represent  true.  To  implement 
IF-THEN-ELSE  with  a  formula  in 
SpeedCalc,  we  can  take  advantage 
of  the  fact  that  true  and  false  are 
represented  as  simple  numeric 
values. 


How  Many  Tests  Do 
You  Need? 

If  you  give  the  matter  some 
thought,  you'll  discover  that  only 
two  basic  IF  tests  are  needed  to 
cover  all  possible  cases.  Here  they 
are: 

IF  A>B  THEN  (this  cell  =  )  C  ELSE  (this 

cell=)D 
IF  AoB  THEN  (this  cell  =  )  C  ELSE  (this 

cell  =  )  D 

In  these  examples  the  letters  A,  B, 
C,  and  D  represent  the  values  con- 
tained in  particular  cells  within  the 
spreadsheet.  A  cell,  of  course,  can 
contain  a  simple  numeric  value 
such  as  2500,  a  reference  to  another 
cell,  or  a  complex  expression  such 
as  (ab2*((asqr(2)))  or  (12*ac24-f- 
52*11), 

Other  IF  tests  can  be  achieved 
by  varying  one  of  the  preceding 
constructions.  For  example,  these 
two  statements  are  logically  equiva- 
lent; 

IF  A  =<B  THEN  C  ELSE  D 
IF  B  >  A  THEN  C  ELSE  D 

Likewise,  these  two  statements  are 
equivalent: 

IF  A  =  B  THEN  C  ELSE  D 
IF  A  <>  B  THEN  D  ELSE  C 

IF-THEN-ELSE  Formulas 

Every  IF-THEN-ELSE  statement 
can  be  broken  into  two  separate 
parts — the  IF  test  and  its  conse- 
quence. The  first  portion  (for  ex- 
ample, IF  A  =  B)  tests  a  logical 
condition.  The  second  portion  (for 
example,  THEN  C  ELSE  D)  states 
the  consequence  of  the  test.  The 
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THEN  portion  of  the  consequence 
is  performed  wtien  the  IF  test  is 
true,  and  the  ELSE  portion  is  per- 
formed when  the  IF  test  is  false. 
Table  1  shows  SpeedCalc  formulas 
for  the  two  IF  tests  described  in  the 
preceding  section. 

The  consequence  (THEN- 
ELSE)  portion  of  the  formula  will 
always  be  the  same  expression — 
D-|-(C  — D)*(...) — which  represents 
the  logical  statement  ELSE  + 
(THEN  -  ELSE)*(...).  When  the 
ELSE  portion  of  the  consequence  is 
to  be  0,  the  expression  reduces  to  a 
simple  C*(...).  When  the  THEN 
portion  of  the  consequence  is  to  be 
0,  all  you  need  is  the  expression  D 

-  D*(...). 

To  express  a  complete  IF- 
THEN-ELSE  statement  in  a  Speed- 
Calc formula,  you  need  to  multiply 
the  consequence  portion  of  the 
statement  by  the  IF  portion.  For 
example,  say  that  you  wish  to  use 
this  statement: 
IF  A>B  THEN  C  ELSE  D 

The   SpeedCalc   equivalent   is   ex- 
pressed by  this  formula: 
D-I-(C-D)  *  @int((@sgn(A-B)  +  l)/2) 

Note  that  we  have  placed  the  con- 
sequence portion — D-F(C  — D) — 
first  and  the  IF  portion — @int( 
(@sgn(A-B)  +  l)/2)— last.  The 
multiplication  operator  (*)  sepa- 
rates the  two  portions  of  the 
statement. 

Inside  The  IF  Test 

Recall  that  the  computer  ordinarily 
makes  a  decision  based  on  an  IF  test 
by  comparing  two  numbers.  More 
specifically,  it  subtracts  one  number 
from  the  other,  then  determines 
whether  the  result  is  positive  (true), 
or  zero  or  negative  (false).  For  ex- 
ample, to  perform  the  statement  IF 
A>B,  we  want  to  know  whether  the 
result  of  (A— B)  is  positive  or  not.  If 
it  is  positive,  then  A  is  greater  than 
B.  If  it  is  zero,  then  A  equals  B.  If  it  is 
negative,  A  is  less  than  B.  In  other 
words,  after  subtracting  the  two 
numbers,  we  then  need  to  know  the 
sign  of  the  remainder. 

SpeedCalc,  of  course,  has  no 
difficulty  performing  the  subtrac- 
tion. To  determine  the  sign  of  the 
result,  you  need  only  enclose  the 
expression  in  a  @5gn( )  function, 
using  the  formula  @sgn(A  — B), 
When  the  result  of  A— B  is  positive. 


@sgn(A— B)  resolves  to  1.  When 
the  result  of  A  — B  is  negative,  it 
resolves  to  —1,  and  when  the  sub- 
traction yields  0,  @sgn(A  — B) 
yields  0. 

Now  let's  build  on  this  basic 
expression  to  perform  specific  IF 
tests.  To  select  only  cases  where  A 
is  greater  than  B  (IF  A>B),  you  need 
to  select  only  the  positive  result.  To 
do  this,  add  the  value  of  1,  divide 
by  2,  and  make  the  result  an  integer 
v/ith  the  @int( )  function: 

@int((@sgn(A-  B)  -I- 1)/2) 

This  formula  yields  1  when  A  is 
greater  than  B,  and  0  in  all  other 
cases. 

To  select  only  cases  where  A  is 
unequal  to  B  (IF  AoB),  you  need 
to  include  negative  as  well  as  posi- 
tive results  (in  other  words,  all  non- 
zero results).  The  @abs( )  function 
easily  converts  any  negative  value 
into  a  positive  value: 

@abs(@sgn(A-B)) 


This  formula  yields  1  whenever  A  is 
unequal  to  B,  and  0  only  when  A 
equals  B. 

Now  we  have  formulas  which 
resolve  to  the  value  1  when  the 
desired  condition  is  true  or  the  val- 
ue 0  when  it  is  false.  Table  2  shows 
the  complete  formulas. 

For  both  formulas  in  Table  2, 
when  the  IF  test  is  true  (resolves  to 
1),  the  cell  is  made  equal  to  D  + 
(C-D)*1.  This  performs  the  THEN 
part  of  the  IF-THEN-ELSE  state- 
ment, making  the  cell  equal  to  C. 
When  the  IF  test  is  false  (resolves  to 
0),  the  cell  is  made  equal  to  D  + 
(C  — D)*0.  This  performs  the  ELSE 
part  of  the  IF-THEN-ELSE  state- 
ment by  making  the  cell  equal  to  D. 

To  take  a  more  realistic  ex- 
ample, say  that  you  want  SpeedCalc 
to  compute  the  equivalent  of  the 
following  statement: 

IF  Q>9  THEN  (this  cell  =  )  Q*P'.85  ELSE 
(this  ceU=)  Q*P 

Now  assume  that  the  value  Q  is  in 


Table  1:  IF  Formulas 

IF  Test  SpeedCalc  lormnla 

IF  A  >  B  @int(((a)sgn(A-B)+l)/2) 

IF  A  <>  B       @abs(@sgn(A-B)) 


Table  3:  Quantity  Discounts 


Unit  price    

Quantity  discounts: 


$10.00 

1  to   9  -  net 

10  to  99 -10% 

100  up  -15% 


Table  2:  IF-THEN-ELSE  Formulas 

Logical  expression  SpeedCalc  Formula 


IF  A>  B  THEN  C  ELSE  D 
IF  A<>  B  THEN  C  ELSE  D 


=  D-l-(C-D)*@int((@sgn(A-B)+l)/2) 
= D  4-  (C  -  D)*  @ab9(@sgn(A  -  B)) 


Table  4:  Quantity  Discounts 


Quantity 

1 

9 

10 

99 

100 

1000 

Tot.  list 

10 

90 

100 

990 

1000 

10000 

Disc  10 

0 

0 

10 

99 

0 

0 

Disc  100 

0 

0 

0 

0 

150 

1500 

Tot  amt 

10 

90 

90 

891 

850 

8500 

Sample  Spreadsheet 

AA  AB 


001 
002 
003 

price  p 

qtyq 

tot  list 

10.00 
0.00 
=  abl*ab2 

004 

005 
006 

disc  10 

disc  100 
tot  amt  t 

=  ab3M*@int((@sgn(ab2-9)  +  l)/2)  * 
@int((@sgnaOO  -  ab2)  + 1)/2) 
=  ab3M5*@int(((asgn(ab2  -  99)  + 1)/2) 
=  ab3-ab4— ab5 
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cell  ABl  and  the  value  P  is  in  cell 
AB2.  This  formula  produces  the  de- 
sired result: 

=abl'al>2+(abl*ab2*.85-abl*ab2)*@iiit 
((@sgn(abl-9)-l-l)/2) 

Boolean  Operators 

In  certain  cases  the  Boolean  opera- 
tor OR,  NOT,  or  AND  is  required  to 
perform  a  conditional  test.  The  eas- 
iest of  these  to  implement  is  NOT. 
If  the  value  of  A  is  1,  then  the 
expression  NOT  A  yields  0.  If  A 
equals  0,  then  NOT  A  equals  1. 
Both  alternatives  can  be  handled 
with  this  SpeedCalc  expression: 

abs(l-A) 

The  AND  and  OR  operations 
can  be  simulated  by  combining  two 


IF  tests.  For  an  AND  operation,  the 
results  of  both  IF  tests  are  multi- 
plied: 
[consequence]  •  [IF  test  1]  *  [IF  test  2] 

For  an  OR  operation,  the  results  of 
both  IF  tests  are  added  together: 
[consequence]  •  ([IF  test  1]  +  [IF  test  2]) 

A  Practical  Illustration 

For  example,  say  that  your  business 
wants  to  calculate  the  quantity  dis- 
counts diagrammed  in  Table  3. 
When  you  sell  items  in  quantities  of 

9  or  fewer,  no  discount  is  given.  A 

10  percent  discount  is  given  on  pur- 
chases of  10  to  99  items,  and  pur- 
chases of  100  or  more  items  qualify 
for  a  15  percent  discount. 

To   calculate   the   discounts 


within  SpeedCalc,  you  need  to  set 
up  a  sheet  with  two  conditional 
calculations;  the  first  one  requires 
an  AND  function.  Run  SpeedCalc 
and  enter  the  sheet  as  shovm  in  the 
figure. 

To  test  whether  the  sheet  per- 
forms as  expected,  enter  some  test 
results  in  cell  AB2.  You  should  get 
the  results  shown  in  Table  4. 

Although  the  algorithms  are 
simple,  it  is  easy  to  make  mistakes 
in  logic  when  setting  up  such  in- 
volved formulas.  It  often  helps  to 
write  the  statements  on  paper 
before  entering  the  actual  formula. 
Before  using  the  formula  for  serious 
purposes,  you  should  test  it  with 
some  sample  values  to  make  sure  it 
works  correctly.  ® 


Amiga  BASIC  Style 


Jim  Butterfield,  Associate  Editor 


Here's  how  to  manage  custom  menus 
and  output  windows,  read  mouse  in- 
put, trap  background  events,  and 
master  other  techniques  which  give 
Amiga  BASIC  its  unique  character. 
The  article  also  highlights  some  of  the 
differences  between  Amiga  BASIC 
and  earlier  BASICs,  and  includes  a 
useful  program  for  calculating  mort- 
gages. 


There's  a  different  style  to  BASIC 
programming  on  the  Amiga.  You 
should  take  a  close  look  at  new 
features;  you'll  discover  concepts 
that  lead  to  a  radically  different 
style  of  programming  and  user 
interaction. 

To  illustrate  some  of  these  con- 


cepts, let's  construct  a  simple 
Amiga  BASIC  program  which  ana- 
lyzes the  five  important  variables  in 
a  home  mortgage:  principal 
(amount  borrowed),  interest  rate, 
period  of  loan,  monthly  payment, 
and  balance  due.  Since  interest- 
compounding  schedules  are  differ- 
ent in  Canada  than  in  the  United 
States,  the  program  includes  an  op- 
tion for  choosing  either  schedule. 
We'll  discuss  elements  of  the  pro- 
gram as  we  go  through  it. 

[Editor's  note:  In  the  following 
listing  we  have  used  the  *  character 
to  indicate  the  end  of  a  program  line. 
Don't  try  to  type  this  character — 
we've  deliberately  chosen  one  that's 
not  on  the  Amiga  keyboard.  The  * 
character  merely  shows  where  you 
should  press  RETURN  to  end  one 
program  line  and  start  another.] 


Initialization 

REM  Mortgage  (Version  1)* 

DIM  titleS(6),site$(2) ,pudefS(5) 

, value* (5 ) , peryear ( 2) , compound {  2 

)* 

cal=4:  3ite=l-« 

The  REM  identifies  the  program 
and  version.  The  DIM  statement 
defines  the  six  arrays  used  in  the 
program,  which  we'll  discuss  as  we 
go  along.  Note  that  there  are  no  line 
numbers  in  Amiga  BASIC.  They  are 
not  needed.  Even  with  GOTO  or 
GOSUB,  it's  usual  to  identify  a  line 
with  a  label,  not  a  number.  (You 
may  include  line  numbers  if  you 
like — a  feature  included  for  the 
sake  of  compatibility  with  other 
BASICS — but  since  the  line  num- 
bers are  treated  simply  as  labels, 
numeric  order  is  irrelevant.) 

Also,  notice  that  we  use  de- 
scriptive words  for  variable  names. 
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In  the  versions  of  BASIC  on  earlier 
Commodore  computers,  only  the 
first  two  characters  of  the  variable 
name  were  significant  (HO$  and 
HOUSEHOLDS  would  be  consid- 
ered the  same  name).  In  Amiga 
BASIC,  names  can  be  up  to  40  char- 
acters long  with  every  character  sig- 
nificant (Householdbudgetl  and 
Householdbudget2  are  recognized 
as  distinct  names).  Descriptive  vari- 
able names  make  the  program 
much  easier  to  understand  and  re- 
duce the  need  for  explanatory  REM 
statements.  We  also  set  the  default 
value  of  the  two  variables  that  de- 
termine which  menu  items  are  se- 
lected. The  loan  variable  to  be 
calculated  (cal)  is  4,  the  payment 
amount.  The  default  interest  com- 
pounding schedule  {site)  is  that  for 
country  1,  Canada.  Change  either 
of  these  if  you  wish. 

DATA  Principal, Rate, Years, Paymen 

t, Balance, Qui t< 

MENU  5,0,1, "Calculate"* 

FOR  j  =  l  TO  6:READ  title?(j)'' 

MENU  5, j,l-( j=cal),"   "+title$(j 

)!NEXT  j* 

The  DATA  statement  contains 
the  items  for  the  first  of  our  custom 
menus,  as  well  as  the  captions  for 
the  output  window  (the  array  fi- 
tle$).  One  of  the  most  significant 
features  of  Amiga  BASIC  is  that  the 
programmer  can  easily  construct 
custom  menus. 

We'll  choose  menu  5  for  our 
first  custom  menu  so  that  menus 
1-4  can  retain  their  default  uses: 
Project,  Edit,  Run,  and  Windows. 
The  first  MENU  statement  sets  Cal- 
culate as  the  title  for  the  menu,  then 
the  FOR-NEXT  loop  reads  the 
DATA  items  into  the  corresponding 
menu  slots.  Note  the  expression 
l~(j  =  cal)  for  the  third  parameter 
of  the  MENU  statement  in  the  loop. 
Just  like  earlier  Commodore  BA- 
SICS, Amiga  BASIC  interprets  a 
true  expression  as  —1  and  a  false 
expression  as  0,  so  1  — (j=cal)  will 
evaluate  to  1— (— 1)  =  2  when  the 
value  of  ;'  equals  the  value  of  cal, 
and  1  —(0)  =  1,  otherwise.  A  value 
of  2  for  this  parameter  puts  a  check 
to  the  left  of  the  menu  item,  so  this 
feature  is  used  to  indicate  which 
calculation  option  is  currently  se- 
lected. A  value  of  1  displays  the 
menu  item  without  a  checkmark, 
but  still  makes  it  active;  a  value  of  0 
would  deactivate  the  menu  item, 


leaving  it  dimmed,  or  ghosted,  and 
impossible  to  select. 

DATA  Canada, 2, 6, USA, 12,1* 

MENU  6,0,1, "Country"* 

FOR  j  =  l  TO  2  I  READ  site? ( j ) , perye 

a  r ( j ) , compound  C  j ) * 

MENU  6, j,l-( j=site),"   "+site?(j 

) :NEXT  j* 

Different  rules  are  used  in  the 
U.S.  and  Canada  to  work  out  a 
monthly  interest  rate  based  on  the 
annual  interest  figure.  In  the  U.S., 
the  annual  amount  is  simply  divid- 
ed by  12.  In  Canada,  semiannual 
compounding  is  used,  which  in- 
volves dividing  by  two  to  get  the 
semiannual  rate  and  then  using  a 
more  complex  formula.  The  user 
will  be  able  to  pick  the  appropriate 
system  from  menu  6,  which  is  titled 
Country.  It  would  not  be  too  hard 
to  add  extra  menu  items,  such  as 
compounding  quarterly  (the  nu- 
meric DATA  items  would  be  4,3). 
The  FOR-NEXT  loop  here  uses  the 
same  technique  for  flagging  the 
current  menu  selection  as  the  one 
above. 

Format  With  PRINT  USING 

DATA  "#,♦#»,#*».##"* 

DATA  "    ###.###%  "* 

DATA  "    ###.###   "* 

DATA  "#,##*,#**.*#"* 

DATA  "#,♦##,###.##"* 

FOR  j=l  TO  5: HEAD  pudef $ ( j ) jNEXT 

j-* 

These  are  the  PRINT  USING  tem- 
plates that  tell  how  the  numeric 
values  of  the  five  loan  variables  are 
to  be  printed.  The  principal  amount, 
for  example,  is  printed  as  a  doUars- 
and-cents  value.  The  annual  inter- 
est rate,  in  contrast,  will  be  shown 
to  three  decimal  places  with  a  per- 
cent sign. 

DATA  10000,10,10,0,0* 

FOR  j=l  TO  StREAD  value! ( j ) sNEXT 

j* 

These  are  just  arbitrary  figures 
to  appear  on  the  initial  screen.  I've 
picked  a  principal  amount  of  $10,000 
at  10  percent  over  ten  years.  You 
could  substitute  your  own  default 
values  if  you  like.  Once  the  pro- 
gram is  running,  any  of  these  val- 
ues can  easily  be  changed. 

An  important  point:  Note  that 
the  array  into  which  the  values  are 
read,  value#,  has  an  extra  symbol  at 
the  end.  The  #  sign  (pound  sign, 
hash  mark,  or  whatever  you  want 
to  call  it)  indicates  that  these  vari- 
ables are  double  precision.  If  you've 
worked  with  previous  Commodore 


machines  which  offered  only  one 
level  of  numeric  precision,  you 
might  be  unclear  about  this  issue. 
Here's  the  story:  In  earlier  Commo- 
dore BASICS,  variables  worked  to 
about  ten  digits  of  accuracy.  That 
was  enough — just  barely  enough — 
to  do  most  home  finance  calcula- 
tions. Normal  (single-precision) 
Amiga  BASIC  variables — the  type 
you  usually  get  if  you  don't  add  a 
type  idenhfier  after  the  variable 
name — are  reliable  to  only  about 
seven  digits.  This  means  that  it 
can't  handle  amounts  of  over  about 
$167,000  without  losing  pennies. 

Computer  scientists  will  tell 
you  that  single-precision  Amiga 
BASIC  variables  have  a  24-bit  man- 
tissa, as  opposed  to  the  32-bit  man- 
tissa in  earlier  Commodore 
BASICS.  What  it  means  to  you  is 
this:  Whenever  you  need  to  deal 
with  dollars-and-cents  values — or 
with  other  values  requiring  a  high 
accuracy — you  need  to  call  for  a 
double-precision  variable.  Such  a 
variable  will  have  more  accuracy — 
enough  to  cover  a  federal  budget 
and  stUl  be  exact  on  the  pennies.  To 
specify  double  precision,  add  a  # 
sign  to  the  end  of  the  variable 
name.  Be  careful  to  include  the  sign 
each  time  you  use  the  variable 
name,  however.  Amiga  BASIC  will 
consider  value  and  value*  to  be  two 
different  variables. 

A  Custom  Window 

WINDOW   2 , "Mortgage" , ( 10 , 10 ) - ( 400 

,100) ,8* 

WINDOW  OUTPUT  2* 

GOSUB  calciGOSUB  showval* 

LOCATE  7,1* 

PRINT  "Use  menu  buttons  to  selec 

t  option."* 

PRINT  "Click  on  existing  values 

to  change."* 

GOSUB  hang* 

WINDOW    CLOSE    2* 

END* 

Now  we  open  a  new  window  in 
which  the  calculations  will  appear. 
The  only  gadget  we  put  on  the  win- 
dow is  the  closing  gadget  (code  8). 
It's  there  so  that  the  user  can  still 
put  away  the  window  manually  in 
case  the  program  is  stopped.  The 
window  is  not  only  created,  but 
also  selected  for  output.  Then  the 
initial  calculations  are  displayed, 
along  with  brief  instructions  near 
the  bottom  of  the  window. 

The  program's  main  job  is  a 
subroutine  called  hang.  We'll  stay 
in  that  subroutine  until  the  user 
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wants  to  quit,  at  which  time  the 
window  will  be  closed.  Here  is  the 
hang  subroutine: 

hang : * 

ON  MENU  GOSUB  event-t 

ON  MOUSE  GOSUB  event* 

MOUSE  ON* 

MENU  ON-i 

kwit=0* 

WHILE  JcwitoltWEND* 

HOUSE  OFF* 

MENU  OFF* 

MENU  RESET* 

RETUEaj* 

We  define  an  action  for  the 
mouse  and  for  the  menus  we  previ- 
ously defined.  Clicking  the  left 
mouse  button  or  selecting  a  menu 
item  invokes  the  event  subroutine. 
These  two  activities  are  interrupts 
or  event  traps.  After  they  are  acti- 
vated with  MENU  ON  and  MOUSE 
ON,  they  vrill  remain  in  place,  wait- 
ing for  the  appropriate  event  to 
happen,  until  they  are  canceled  or 
turned  off.  While  they  are  active,  it 
doesn't  matter  what  the  program  is 
doing;  a  suitable  stimulus  will  im- 
mediately cause  the  program  to 
jump  to  the  specified  subroutine. 

A  variable  called  kwit  is  used 
by  the  program  to  tell  when  it's 
time  to  quit.  As  long  as  it's  zero,  the 
program  stays  in  the  WHILE-WEND 
loop.  How  does  it  ever  get  out  of 
this  seemingly  endless  loop?  Re- 
member the  event  traps  we  just  en- 
abled. Pressing  the  left  mouse 
button  or  selecting  a  menu  item  will 
trigger  a  GOSUB  to  the  event  rou- 
tine, which  in  turn  calls  subroutines 
to  process  the  button  click  or  menu 
selection.  One  menu  selection,  the 
Quit  option  from  the  Calculate 
menu,  will  change  the  value  of  kwil 
to  one  to  end  the  loop.  After  exiting 
the  loop,  we'll  shut  off  the  menu 
and  mouse,  disconnect  the  event 
traps,  and  return  to  the  main  pro- 
gram which  ties  things  up. 

A  Major  Event 

event:* 

ra3=MOUSE(0) :ran=MENU(0)* 

IF  ran   THEN   GOSUB  raenuhit* 

IF    ra3    THEN   GOSUB    eeli* 

IF  kwit=0   THEN   GOSUB   calc: GOSUB 

ahowval* 

RETURN* 

Now  let's  look  at  the  routine  where 
the  real  action  takes  place.  When 
we  arrive  at  the  event  subroutine, 
we  know  that  one  of  two  things  has 
happened.  Either  the  left  mouse 
button  has  been  clicked  or  a  menu 
item  has  been  selected  by  using  the 
right  mouse  button.  The  MOUSE 


and  MENU  functions  are  used  to 
check  which,  and  the  appropriate 
service  subroutine  is  called.  Once 
the  new  value  for  cal  or  site  has 
been  established,  we're  ready  to 
calculate  new  values,  but  first  we 
check  that  kwit  is  still  zero — we 
don't  want  to  calculate  values  if  the 
Quit  option  from  the  Calculate 
menu  was  selected.  The  new  finan- 
cial values  are  determined  by  call- 
ing the  subroutine  calc,  then 
displayed  using  the  showval  sub- 
routine. Keep  in  mind  that  we'll 
come  back  to  this  routine  to  recal- 
culate anytime  the  data  elements — 
or  the  rules — are  changed. 

calcs* 

ON  ERROR  GOTO  Oops* 

principalt=valuei ( 1 ) * 

rl*= (value* (2)/100/peryear(site} 

+1) "(l/compound(site) )* 

rate»=rl*-l« 

monthB=value# ( 3 ) *1 2* 

pay7nent#=value#  ( 4 )  * 

balance#=value# ( 5 ) * 

ON   cal   GOSUB    fprin, fintr, fper,  fp 

ay, fbal* 

scale=ia0iIF  cal=2  OR  cal=3  THEN 

Bcale=1000* 

value* C cal )=INT( value* ( cal )*scal 

e+.99)/Bcale* 

ON  ERROR  GOTO  0* 

RETURN* 

The  calc  subroutine  is  where 
the  dirty  work  begins.  The  princi- 
pal, interest  rate,  number  of  peri- 
ods, payment  amount,  and  final 
balance  are  extracted  from  the  val- 
ued array  so  that  they  can  be  used 
by  the  various  calculation  programs 
more  easily.  Note  that  in  most 
cases,  we  retain  double-precision 
accuracy  with  the  #  sign.  The 
monthly  interest  rate  is  worked  out 
by  a  fairly  complex  formula,  and 
the  number  of  months  equals  the 
number  of  years  times  12, 

The  variable  cal  tells  us  what  to 
calculate.  Depending  on  its  value, 
we'll  call  fprin  (find  principal),  fintr 
(find  interest  rate),  fper  (find  peri- 
od), /pay  (find  payment),  or  fbal 
(find  balance).  The  calculation  with 
scale  rounds  any  calculated  value  to 
the  next  highest  penny,  or,  if  not  a 
money  figure,  to  three  decimal 
places. 

The  calculation  subroutine  also 
includes  an  error  trap,  since  some 
calculations  are  impossible  or  ridic- 
ulous (for  example,  how  long 
would  it  take  to  pay  off  a  $1,000 
mortgage  with  a  payment  of  $0  per 
month?).  Problems  are  directed  to 
an  event  trap  named  oops. 


oops:* 

valuet(cal)30* 
RESUME  oop32* 
oopals* 
WINDOW  2* 
RETURN* 

If  there's  any  calculation  prob- 
lem, we  set  the  calculated  value  to 
zero  and  give  up.  We  do  not  go 
back  to  the  detailed  calculation  pro- 
gram. Instead,  using  oops2,  we  re- 
turn to  the  main  calc  routine.  But, 
first,  it's  necessary  to  reopen  WIN- 
DOW 2,  since  the  Amiga  always 
closes  any  secondary  windows 
when  an  error  occurs.  Notice  that 
the  message  at  the  bottom  of  the 
window  is  not  reprinted.  So  if  you 
see  the  window  blink,  then  reap- 
pear minus  the  message  and  with 
the  value  being  calculated  set  to 
zero,  an  error  has  been  trapped.  If 
this  occurs  when  you  enter  what 
seem  to  be  legitimate  values,  it  may 
indicate  that  you  made  an  error 
while  entering  the  program.  For 
this  reason  you  may  want  to  omit 
the  ON  ERROR  statements  until 
you  are  confident  that  you  have 
eliminated  all  typing  m.istakes  in 
the  program. 

Here  are  the  five  calculation 
routines.  We  won't  plunge  into  de- 
tails of  the  math  here,  since  it's 
rather  complex, 

fprin:* 

value*  (1  )  =  (balancejf+payment#*(rl 

♦*raonths-l ) /rate! ) /rlt'months* 

RETURN* 

* 

fintr;* 

r0»=a:rl#=MEXP(75/iilonths)  :IF   rl*> 

2    THEN    rl#=2    * 

rate*=rl#-l:r9#=rate**100* 

p0*=balance*+payment#*raonths-pri 

ncipal** 

p9*=(balance#+payment#* (rlt'mont 

ha-l )/rate#)/rl#*months-principa 

1#* 

IF  p0#<0  OR  p9#>0  THES  * 

r2*=0* 

ELSE* 

flop%=0* 

WHILE  i\BS(r9*-r0#)>.001* 

flop*=l-flop** 

IF  flOp%>a  THEN* 

r2*=(r0»+r9t)/2* 

ELSE* 

r2*=r0t-p0**(r9#-r0*)/(p9#-p0#)* 

END  IF* 

rl#=(l+r2l/l00/peryear(8ite))"(l 

/compound ( site) )* 

rate#=rl#-l< 

p2  jt=( balance #+payment#*  (rlt^mont 

hs-1  )/rate#  j/rlt'inonfhs-principa 

1#* 

IF    p2*>0    THEN* 

r0#=r2#:p0#=p2#* 

ELSE* 

r9#=r2*:p9#=p2#* 

END    IF* 

WEND* 

END    IF* 

value#(2)=r2#* 
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RETURS-* 

■♦ 

fper :« 

value#(3)=L0G( (payment#-rate#*ba 

lance* ) / ( payment*-rate#*principa 

l#))/L0G(rl#)/l2#« 

RETURN* 

■4 

fpay  :•♦ 

value* (4)=rate#*(principal#*rl** 

months-balance* )  /  { r  1#  'months-1 )-« 

RETURN* 

* 

fbal:* 

value* (5)=principal#*rl#'raonths- 

payinent#*(rl#*months-l  )/rate#* 

RETURN* 

The  only  one  of  the  above  rou- 
tines that's  lengthy  is  fintr.  There's 
no  simple  formula  for  the  interest 
rate,  so  we  must  zero  in  on  the 
correct  value  by  repeated  calcu- 
lations. 

Displaying  Results 

Now  to  display  the  calculated 
values: 

showval !* 

FOR  j=l  TO  5* 

LOCATE  j,l* 

IF  j=cal  THEN  * 

PRINT  ■'*";* 

ELSE* 

PRINT  "  ";* 

END  IF* 

PRINT  title5(  j);SPACE$(20)-* 

LOCATE  j,12* 

PRINT  USING  pudef?( j) ;value#( j)* 

NEXT  j* 

RETURN* 

For  a  good  human  interface,  I 
wanted  to  distinguish  between  the 
calculated  item  and  the  entered  val- 
ues. The  title  for  the  value  being 
calculated  will  be  preceded  by  an 
asterisk.  SPACES  is  used  to  gener- 
ate a  string  of  blanks  to  wipe  out 
any  old  values. 

A  Choice  Is  Made 

menuhit :* 

ras=0* 

IF  ran>4  THEN* 

ranl=MENU(l)* 

ON  mn-4  GOSUB  newcalc, style* 

END  IF* 

RETURN* 

Here's  the  routine  to  handle  menu 
selections.  The  value  mn,  given  the 
value  of  MENU(O)  in  the  calling 
routine,  is  used  to  determine  which 
menu  is  involved.  MENU(l)  tells  us 
which  item  from  the  menu  has  been 
selected.  We  then  subtract  4  from 
mn  to  get  an  offset  of  1  or  2  for  the 
ON-GOSUB  statement. 

eekt* 

x=M0USE(3) :y=H0USE{4)* 

IF  x>S  AND  x<190  THEN* 

v=INT((y+8)/8)* 

IF  v>0  AND  v<6  AND  vocal  THEN* 

LOCATE  V, 12: PRINT  SPACE? (20)* 

LOCATE  v,12:INPUT  value#(v)* 


LOCATE  V, 12: PRINT  USING  pudef5(v 

) rvalue#(v)* 

END  IF* 

END  IF* 

RETURN* 

The  newcalc  subroutine  is 
called  when  menu  5,  the  Calculate 
menu,  is  selected.  If  the  item  select- 
ed from  that  menu  is  1-5,  the  previ- 
ously selected  menu  item  has  its 
checkmark  removed,  and  a  check- 
mark is  placed  beside  the  newly 
selected  item.  The  value  of  cal  is 
updated  to  show  which  variable  is 
now  being  calculated.  If  menu  item 
6,  Quit,  was  chosen,  we  instead  set 
the  value  of  kwit  accordingly.  The 
style  subroutine  sets  site  to  the  se- 
lected country  when  an  item  is  se- 
lected from  menu  6,  the  Country 
menu. 

newcalc:* 

IF  mnl<6  THEN* 

MENU  5,cal,l* 

cal=mnl« 

MENU  5, cal, 2* 

ELSE* 

IF  ranl=6  THEN  kwit=l* 

END  IF* 

RETURN* 

style:* 

IF  mnl<3  THEN* 

MENU  6, site, 1* 

Bite=mnl* 

MENU  6, site, 2* 

END  IF* 

RETURN* 

When  the  left  mouse  button  is 
clicked,  the  eek  subroutine  allows 
entry  of  a  new  value.  It's  important 
to  read  MOUSE(O)  before  reading 
the  mouse's  position,  but  in  this 
case,  that's  already  been  done  in 
the  event  routine  that  calls  eek.  The 
X  and  y  coordinates  of  the  mouse 
pointer's  current  position  come 
from  M0USE(3)  and  M0USE(4), 
since  those  functions  return  the  po- 
sition of  the  mouse  when  the  but- 
ton was  clicked.  MOUSE(l)  and 
MOUSE (2)  return  the  mouse's  po- 
sition at  the  time  of  the  MOUSE(O) 
call,  so  either  would  probably  give 
comparable  results  in  this  case.  Re- 
member that  we  are  reading  pixel 
positions,  not  character  positions. 
Before  recognizing  a  click  as  a  re- 
quest to  enter  input,  we  check  that 
the  pointer  was  reasonably  close  to 
one  of  the  displayed  values.  One 
more  limitation  is  that  we  won't 
allow  an  entry  for  the  cal  variable: 
The  computer  calculates  that  value. 

Once  we  know  it's  a  valid  vari- 
able, we  clear  the  old  value  using 
SPACES,  input  a  new  value,  and 
then  print  it  neatly  formatted  in  the 
space  provided. 


Maiden  Voyage 

Let's  give  the  program  a  trial  run. 
You'U  see  the  window  appear.  If 
you  have  used  the  initial  values 
suggested,  you'll  notice  that  the 
program  has  calculated  a  payment 
of  $131.04.  That's  the  Canadian 
computation.  Now  press  the  right 
button,  slide  the  mouse  pointer  up 
to  the  Country  menu,  and  move 
down  to  USA  before  you  release  the 
button.  The  payment  should  change 
to  $132.16. 

This  is  a  ten-year  mortgage. 
Let's  see  what  the  balance  would  be 
after  five  years.  Use  the  right  button 
(also  called  the  menu  button,  for 
obvious  reasons)  to  select  the  Bal- 
ance option  from  the  Calculate 
menu.  The  balance  will  show  a 
slightly  negative  amount.  That's 
okay  (each  payment  is  rounded  up 
a  fraction  of  a  penny,  so  the  final 
payment  will  be  slightly  less  than 
zero).  Next,  move  the  pointer  up  to 
the  Years  value  in  the  display  win- 
dow menu  and  click  the  left  button. 
The  computer  is  inviting  you  to  en- 
ter a  new  value:  Enter  5  for  five 
years.  Observe  that  the  balance  still 
due  after  five  years  is  a  little  over 
$6,000.00. 

How  long  to  pay  it  off  at  $150  a 
month?  Select  Years  from  the  Cal- 
culate menu.  Change  the  Balance 
value  to  0  and  the  Payment  value  to 
150.  The  ansvrer  is  a  httie  over  eight 
years.  If  you  change  the  interest 
rate  to  12  percent,  you'll  see  that  it 
would  take  over  nine  years  to  pay 
off  the  loan.  At  18  percent,  you 
wouldn't  live  long  enough  to  pay  it 
off  at  $150  a  month,  and  at  20 
percent,  it's  impossible  (note  the 
Years  value  is  set  to  zero  to  indicate 
the  error).  When  you've  snooped 
through  the  combinations  enough 
to  satisfy  yourself,  select  Quit.  And 
don't  forget  to  save  the  program.  If 
your  answers  don't  match  these, 
check  the  formulae  for  typographi- 
cal errors. 

After  running  through  this  ex- 
ercise, think  how  different  things 
would  be  on  any  eight-bit  com- 
puter. It's  not  just  the  mortgage  cal- 
culation; it's  the  style  of  the 
machine.  With  a  fresh  approach, 
you  can  make  your  Amiga  more 
flexible  and  useful  than  any  com- 
puter you've  used  before.  @ 
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Home  Financial  Caicuiator 

For  Atari  ST 


Patrick  Parrish,  Programming  Supervisor 


Rarely  has  there  been  a  program  inte- 
grating as  many  useful  loan  and  in- 
vestment features  as  "Home 
Financial  Calculator."  It  is  versatile, 
easy  to  use,  and  flexible.  Rapid  recal- 
culation features  make  it  an  ideal  tool 
for  "what  if"  projections.  A  calculator 
mode  with  memory  lets  you  solve 
problems  not  directly  supported  by 
the  program,  and  you  can  pass  values 
generated  by  one  calculation  to  an- 
other. Home  Financial  calculator  was 
originally  published  in  the  May  1985 
issue  of  COMPUTE!.  This  new  version 
is  for  any  Atari  ST  computer  which 
has  TOS  in  ROM. 


"Home  Financial  Calculator"  inte- 
grates a  number  of  common  finan- 
cial calculations  in  a  menu-driven 
package.  It  also  features  a  calculator 
mode  or  scratch  pad  area  where 
program  variables  can  be  manipu- 
lated using  common  mathematical 
operations. 

Be  particularly  careful  when 
typing  the  long  lines  in  this  pro- 
gram which  contain  financial  for- 
mulae. A  mistyped  program  may 
still  run,  but  the  results  it  gives 
could  be  inaccurate. 

When  you  run  the  program,  a 
main  menu  offers  you  a  choice  of 
Investment  or  Loan  calculations. 
Type  I  or  L  to  reach  the  appropriate 
submenu. 

Easy  "What  If"  Projections 

Before  looking  at  any  calculations, 
let's  consider  some  basics  of  the 
program.  Home  Financial  Calcula- 
tor uses  some  parameters  or  vari- 
ables repeatedly  in  the  calculations. 
These  variables  are  Total  (also  re- 
ferred to  as  Future  Value,  Total 
Owed,  and  so  forth,  depending  on 


the  calculation);  Present  Value 
(principal);  Interest  Rate;  Years; 
Months;  Number  of  Periods  (of  either 
compounding,  deposits,  withdraw- 
als, or  payments,  depending  on  the 
application);  Deposits;  and  With- 
drawals. When  in  the  calculator 
mode  (explained  below),  you'll  ref- 
erence these  eight  variables  with 
the  single  letters  T,  P,  I,  Y,  M,  N,  D, 
and  W. 

As  you  work  with  Home  Fi- 
nancial Calculator,  the  values  of  the 
eight  variables  are  preserved  until 
you  change  them.  Whenever  the 
program  asks  you  for  an  input  (for 
example.  Interest),  the  current  val- 
ue of  that  variable  is  displayed 
(zero  if  no  value  has  been  entered 
yet).  If  you  want  to  keep  the  current 
value,  just  press  Return.  Otherwise, 
enter  the  new  value  and  press 
Return, 

With  this  feature.  Home  Finan- 
cial Calculator  makes  it  easy  for  you 
to  generate  "what  if"  projections. 
Simply  run  the  same  calculation  re- 
peatedly, each  time  changing  a  pre- 
viously entered  value.  Press  Return 
to  keep  a  value,  and  change  only 
one  or  two  values  to  see  the  effect 
on  the  final  result. 

You  can  also  store  the  current 
value  into  the  calculator  mode's 
Memory  Register  or  recall  a  value 
from  the  Memory  Register,  To  see 
how  all  this  works,  let's  take  a  closer 
look  at  your  options. 

Your  Investment  Menu 

Here  is  the  Investment  submenu 
that  appears  when  you  type  I  from 
the  main  menu: 

1)  Future  Value  with  Periodic 
Interest 

2)  Future  Value  with  Interest 
Compounded  Continuously 


3)  Future  Value  with  Regular 
Deposits 

4)  Future  Value  with  Cash  Flows 

5)  Withdrawal  of  Funds 

6)  Net  Present  Value 

7)  Calculator  Mode 

8)  Return  to  Main  Menu. 

Determine  which  option  you 
want  and  press  the  appropriate  key. 

Each  option  displays  screen 
prompts  which  ask  you  to  input 
several  values.  These  values  are 
stored  in  the  eight  variables  men- 
tioned above:  T  for  Total  (Future 
Value),  P  for  Present  Value  (princi- 
pal), I  for  Interest  Rate,  Y  for  Years, 
M  for  Months,  N  for  Number  of 
Periods,  D  for  Deposits,  and  W  for 
Withdrawals,  Of  course,  not  all  cal- 
culations require  you  to  enter  all 
these  values,  while  others  may  ask 
for  additional  information. 

Most  calculations  can  be 
solved  for  any  one  of  the  variables. 
To  solve  for  a  variable,  enter  an 
uppercase  X  at  the  corresponding 
input  prompt.  For  example,  you 
could  enter  values  for  everything 
except  the  Interest  Rate,  typing  X  at 
the  Interest  Rate  prompt.  Home  Fi- 
nancial Calculator  then  solves  for 
the  Interest  Rate. 

Remember,  however,  that  the 
program  can  solve  for  only  one  vari- 
able during  each  calculation.  If  you 
enter  an  X  at  more  than  one 
prompt,  the  program  does  not  have 
enough  information  to  calculate  an 
answer. 

Future  Value  WItti 
Periodic  Interest 

Home  Financial  Calculator's  op- 
tions are  fairly  self-explanatory 
when  you  run  the  program,  but 
let's  try  an  example.  We'll  calculate 
the  future  value  of  an  investment 
drawing  periodic  interest.  This  kind 
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of  investment  could  be  a  savings 
account,  interest-bearing  checking 
account,  bonds,  or  a  money  market 
account.  Choose  this  option  by  en- 
tering 1  at  the  Investment  sub- 
menu. 

After  the  screen  clears,  the  pro- 
gram asks  for  the  first  input — Fu- 
ture Value,  which  appears  with  an 
asterisk  (*).  Below  this  is  a  zero  (the 
current  value  of  this  variable  in 
memory;  all  variables  start  out  with 
a  value  of  zero).  Following  this  is  an 
input  prompt. 

The  asterisk  preceding  Future 
Value  means  that  this  is  one  of  the 
variables  you  can  solve  for,  (A  vari- 
able not  preceded  by  an  asterisk 
means  that  variable  cannot  be 
solved  for  in  that  particular  calcula- 
tion, so  X  would  be  an  illegal  re- 
sponse.) If  you'd  like  to  calculate 
the  Future  Value,  enter  an  X  here, 
and  answer  all  the  other  prompts 
with  the  appropriate  values. 

Let's  calculate  the  future  value 
of  a  $1,000  investment  drawing  8 
percent  interest  for  two  years  and 
three  months,  with  four  com- 
pounding periods  each  year.  Enter 
an  X  for  Future  Value,  since  we'll  be 
solving  for  this  total.  Answer  Pre- 
sent Value  with  1000  (the  principal 
you're  investing);  Annual  Int  Rate 
(%)  with  8  (enter  the  percentage, 
not  a  fraction);  For  4t:  Of  Years  with 
2;  For  #  Of  Months  with  3;  and  #  Of 
Periods  (Compounding)  with  4.  After 
you  enter  the  last  value.  Home  Fi- 
nancial Calculator  figures  the  Total 
Future  Value  and  displays  the  an- 
swer—$1195.09. 

Now  suppose  you  wish  to 
know  the  future  value  of  the  same 
$1,000  investment  if  you  make  9 
percent  interest.  Choose  option  1 
on  the  Investment  submenu  again 
and  rerun  the  calculation.  Notice 
how  Home  Financial  Calculator 
automatically  prints  the  current 
value  of  each  variable  at  each 
prompt.  The  Future  Value  prompt 
shows  a  current  value  of  1195.09 
from  the  previous  calculation.  Type 
an  X  at  this  prompt,  9  for  Interest 
Rate,  and  Return  at  all  other 
prompts  to  preserve  their  values. 
The  result  should  be  $1221.71. 

The  versatility  of  Home  Finan- 
cial Calculator  becomes  apparent 
when  you  realize  how  many  differ- 
ent ways  you  can  run  this  calcula- 
tion. Using  this  same  menu  option, 


you  can  calculate  the  initial  invest- 
ment (or  present  value)  necessary 
to  accrue  a  certain  future  value  with 
periodic  interest;  the  interest  rate 
necessary  to  accrue  a  future  value 
from  a  present  value;  or  the  time  (in 
years  and  months)  it  would  take  to 
accumulate  a  future  amount  from 
an  initial  investment  with  periodic 
interest  payments.  Just  enter  an  X 
for  the  unknown  value  you're  seek- 
ing and  fill  in  all  the  other  prompts. 

Future  Value  With 
Interest  Compounded 
Continuously 

Option  2,  a  variation  of  option  1, 
handles  investments  paying  a  con- 
tinuous interest  rate.  Like  option  1, 
option  2  can  handle  a  number  of 
calculations — just  place  an  X  in  the 
slot  you'd  like  to  solve  for. 

Here,  after  entering  all  other 
parameters,  you  can  calculate  the 
future  value  of  an  investment;  the 
initial  investment  required  to  reach 
a  certain  future  value;  the  interest 
required  to  reach  a  desired  future 
value;  or  the  time  required  to  reach 
a  certain  future  value  at  a  specified 
interest  rate. 

Notice  that  any  variables  used 
in  option  1  will  be  displayed  with 
their  current  values  when  running 
option  2.  Recall  that  the  eight  major 
variables  in  Home  Financial  Calcu- 
lator retain  their  values  throughout 
the  program  until  you  change 
them.  This  feature  is  convenient 
when  going  from  one  option  to  an- 
other on  the  Investment  or  Loan 
submenus. 

In  addition,  the  values  are  pre- 
served for  use  in  the  calculator 
mode.  For  instance,  you  could  com- 
pare the  effect  of  continuously  com- 
pounded  interest  to  periodic 
interest  (option  ■  1)  without  having 
to  retype  the  input. 

Future  Value  With 
Regular  Deposits 

If  you're  interested  in  setting  up  an 
annuity,  you'd  choose  option  3  on 
the  Investment  submenu.  You  can 
determine  the  future  value  of  an 
account  (such  as  a  savings  account. 
Individual  Retirement  Account,  or 
college  or  vacation  fund)  with  regu- 
lar deposits  where  interest  is  com- 
pounded with  each  deposit. 

Option  3  can  also  tell  you  the 
amount  of  each  deposit  necessary 


to  accrue  a  future  value;  the  interest 
rate  needed  to  provide  some  future 
value  with  regular  deposits;  or  the 
time  it  would  take  to  amass  a  future 
value  with  regular  deposits. 

Future  Value  With 
Cash  Flows 

Option  4  does  a  single  calcula- 
tion— it  always  solves  for  Future 
Value,  so  don't  enter  an  X  any- 
where. It  calculates  the  future  value 
of  an  investment  with  yearly  cash 
flows  (either  positive  or  negative). 
The  Annual  Interest  Rate  you  input 
here  is  the  growth  rate  on  the  mon- 
ey you've  invested. 

As  an  example,  suppose  you 
wish  to  determine  the  value  of  a 
vacation  fund  collected  over  four 
years.  You're  asked  for  the  number 
of  years,  then  for  the  deposit  or 
withdrawal  each  year.  You  deposit 
$500  in  the  fund  the  first  year  and 
$200  the  second.  The  third  year  you 
are  forced  to  withdraw  $300  (en- 
tered as  —300),  and  the  fourth  year, 
you  put  in  $400.  The  fund  has  a 
growth  rate  of  12  percent.  Its  value 
after  four  years  will  be  $1,017.34. 

A  future  value  determination 
can  also  tell  you  whether  an  invest- 
ment is  worthwhile.  If  the  future 
value  of  all  cash  flows  is  positive  or 
zero,  the  investment  is  profitable.  A 
negative  future  value,  on  the  other 
hand,  represents  a  losing  investment. 

Withdrawal  Of  Funds 

If  you  intend  to  open  an  account 
from  which  you  can  regularly  with- 
draw funds,  choose  option  5.  With 
this  option,  you  can  determine  the 
initial  deposit  required  in  the  ac- 
count to  cover  your  withdrawals; 
the  amount  you  can  withdraw  reg- 
ularly from  this  account;  the  rate  of 
interest  you  must  make  on  funds  in 
the  account;  or  the  period  of  time 
over  which  you  can  make  with- 
drawals. 

Net  Present  Value 

Option  6  lets  you  determine  the 
feasibility  of  a  prospective  invest- 
ment by  calculating  its  net  present 
value.  Net  present  value  is  the  cur- 
rent value  of  all  future  yearly  cash 
flows  to  an  investment  along  with 
any  initial  cash  requirement.  The 
interest  rate  you  input  here  is  the 
rate  of  return  you  require  on  your 
investment.  A  positive  net  present 
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value  indicates  a  profitable  invest- 
ment, while  a  negative  result  signi- 
fies a  losing  investment. 

As  an  example,  suppose  you 
have  the  opportunity  to  make  a 
$2,000  investment  which  would  re- 
turn $1,500  the  first  year,  cost  you 
$750  the  second  year,  and  return 
$1,900  the  third  year.  You  hope  to 
make  13  percent  on  your  money. 
With  option  6,  you  would  deter- 
mine a  net  present  value  of  $56.87, 
representing  a  profitable  investment. 

The  Calculator  Mode 

Option  7  puts  you  in  the  calculator 
mode  (also  available  from  the  Loan 
submenu).  Calculator  mode  works 
very  much  like  a  hand-held  calcula- 
tor with  a  single  memory.  You  can 
type  in  a  value  or  recall  one  from  a 
variable  by  entering  its  symbol — 
T(otal),  P(resent  Value),  l(nterest 
Rate),  Y(ears),  M(onths),  N(umber 
of  Periods),  D(eposits),  and  W(ith- 
drawals).  You  can  perform  simple 
math  on  values  stored  in  the  Mem- 
ory Register  using  reverse  Polish 
notation.  And  you  can  use  the  re- 
sults in  future  calculations. 

When  you  enter  calculator 
mode,  the  calculator  command  line 
appears  on  the  screen: 

V  S    H  R  M-(-  M-  M'  M/  MR  MC 
MEM  =  0 

Here  are  the  commands: 

V  View  the  values  of  the  eight  pri- 
mary variables 

S  Store  Memory  Register  into  a 

variable 

H  Help — prints  the  command  line 

R  Return  to  main  menu,  exit  calcu- 

lator mode 
M-H         Add  the  last  input  to  the  Memory 
Register 

M—         Subtract  the  last  input  from  the 

value  in  the  Memory  Register  and 
store  the  result  in  the  Register 

M*  Multiply  the  last  input  times  the 

value  in  the  Memory  Register  and 
store  the  result  in  the  Register 

M/  Divide  the  last  input  into  the  val- 

ue in  the  Memory  Register  and 
store  the  result  in  the  Register 

MR         Memory  Recall 

MC  Memory  Clear  to  zero 

MEM="  Memory  Register's  current  value 

If  you've  run  through  a  sample 
investment  calculation,  you  now 
have  some  variables  in  memory. 
Enter  V  in  the  calculator  mode  to 
see  them.  The  screen  displays  the 
eight  values  currently  in  memory 
for  the  eight  variables. 


To  work  with  one  of  these  vari- 
ables, enter  one  of  their  letters  (T,  P, 
/,  Y,  M,  N,  D,  or  W)  and  press  Re- 
turn. Then  type  M+  to  add  it  to  the 
Memory  Register  (all  variables 
must  be  stored  in  the  Register 
before  you  can  perform  any  opera- 
tions on  them).  Suppose  you  put 
the  current  value  for  T  into  the  Reg- 
ister and  now  wish  to  add  $229  to 
this  value.  Enter  229,  press  Return, 
then  type  M+  and  press  Return. 
The  addition  is  performed  and  the 
result  displayed.  To  store  this  value 
back  into  the  T  variable,  enter  S  for 
Store.  A  prompt  appears,  request- 
ing the  variable  in  which  you  in- 
tend to  store  the  value.  Type  T  to 
store  the  value  into  the  variable  T, 

You  can  also  use  the  Memory 
Register  to  hold  a  value  not  repre- 
sented by  any  of  the  eight  variables. 
To  do  this,  determine  a  value  using 
the  calculator  mode  and  store  it  into 
the  Memory  Register  with  M+. 
Then,  when  you're  running  a  calcu- 
lation elsewhere  in  the  program, 
you  can  substitute  this  value  for 
any  of  the  eight  primary  variables 
by  typing  MR  (Memory  Recall)  at 
the  appropriate  prompt.  MR  can  be 
used  both  in  the  calculator  mode 
and  at  any  prompt  where  the  previ- 
ous value  is  displayed. 

Finally,  option  8  on  the  Invest- 
ment submenu  returns  you  to  the 
main  menu.  Once  there,  you  can 
perform  some  loan  calculations  by 
typing  L. 

Loan  Calculations 

Here  is  the  Loan  calculations  sub- 
menu: 

1)  Regular  Loan  Payments 

2)  Remaining  Loan  Liability 

3)  Final  Loan  Payment 

4)  Single  Payment  Loan 

5)  Loan  AmoTtization  Schedule 

6)  Calculator  Mode 

7)  Return  to  Main  Menu 

Regular  Loan  Payments 

Option  1  handles  a  number  of  cal- 
culations for  equal  payment  loans. 
You  can  figure  the  principal  of  a 
loan;  the  amount  of  each  regular 
payment  necessary  to  repay  a  loan; 
the  annual  interest  rate  on  a  loan 
with  regular  payments;  or  the  term 
of  the  loan. 

Remaining  Loan  Liability 

With  option  2,  you  can  determine 


the  remaining  balance  on  a  loan 
with  regular  payments  after  a  num- 
ber of  payments  have  been  made. 
Enter  the  principal  on  the  loan,  the 
amount  of  each  payment,  the  annu- 
al interest  rate,  the  number  of  pay- 
ments yearly,  and  the  last  payment 
number. 

Final  Loan  Payment 

Option  3  calculates  the  amount  of 
the  final  payment  on  a  loan.  In 
many  cases,  the  last  payment  of  a 
loan  will  vary  from  the  amount  of 
the  regular  payment.  This  option 
handles  situations  where  the  final 
payment  is  greater  than  ("balloon 
payments")  or  less  than  the  regular 
payment. 

Single  Payment  Loan 

Option  4  calculates  the  amount 
owed  on  a  loan  that  is  paid  off  with 
a  single  payment.  You  must  input 
the  principal  on  the  loan,  its  annual 
interest  rate,  its  term  in  years  and 
months,  and  the  number  of  times  a 
year  the  interest  on  the  principal  is 
compounded. 

Loan  Amortization 
Schedule 

Option  5  displays  a  loan  amortiza- 
tion schedule.  Enter  the  principal 
on  the  loan,  the  amount  of  each 
payment,  the  annual  interest  rate, 
the  term  of  the  loan,  and  the  num- 
ber of  payments  yearly.  Then  enter 
the  period  of  the  year  in  which  the 
loan  began  (for  instance,  10  for  Oc- 
tober) and  the  range  in  years  of  the 
amortization  schedule  you'd  like  to 
examine. 

Because  of  the  complexity  of 
these  calculations,  there  may  be  a 
delay  before  the  output  appears  on 
the  screen,  especially  if  you  have 
chosen  to  look  at  the  latter  years  in 
a  long-term  loan  repayment  sched- 
ule (such  as  a  home  mortgage). 
When  the  amortization  table  ap- 
pears, it  displays  the  payment  num- 
ber, the  beginning  balance  for  the 
period,  the  amount  paid  toward  the 
loan  principal,  the  amount  paid  in 
interest,  and  the  ending  balance.  To 
keep  the  information  from  scrolling 
off  the  screen,  the  program  shows 
only  a  few  payment  periods  at  a 
time.  Press  Return  to  view  another 
screenful.  When  the  end  of  a  year  is 
reached,  the  program  gives  the  total 
amounts  paid  on  the  principal  and 
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in  interest  for  the  year.  In  addition, 
when  the  last  period  of  the  loan  is 
reached,  the  program  displays  the 
final  payment  for  the  loan. 

The  last  two  options  on  the 
Loan  submenu  are  the  same  as 
those  on  the  Investment  submenu. 

Modifying  The  Program 

Home  Financial  Calculator  is  writ- 
ten in  a  modular  format  for  easy 
modification.  For  many  routines,  it 
uses  common  input  labels  (lines 
4590-4960)  and  some  output  labels 
(lines  4970-5050).  If  you  want  to 
add  an  investment  or  loan  calcula- 
tion routine,  choose  the  labels  from 
these  lines  that  fit  your  application. 
Also,  you  may  wish  to  add  a 
printer  option  to  the  loan  amortiza- 
tion schedule.  Examine  lines  3140- 
3840.  Here,  variable  D5  (defined  in 
line  140)  determines  the  number  of 
loan  payments  considered  on  each 
screen.  Variables  SI,  S2,  S3,  and  S4 
(defined  in  lines  150-180)  format 
the  output  horizontally  on  the 
screen. 

Home  Financial  Calculator 
For  Atari  ST 

Version  by  George  Miller,  Assistant 
Technical  Editor 
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)  )'-(V(6)  tY)«100+.5)/100 
560    BOSUB  4970 
570    IF  E02  THEN  600 
3B0    V<2>-INT(V(1)/C CH-V(3>/V« 

6)>''(V(6)*Y)  )tl00+.5)/100 

S90    QOSUB  5000 

600    IF  E03  THEN  630 

610    V(3)-INT((V(6)»(V<1)/V(2> 

)'^(1/(V(6)»Y))-V(6)  )tl000 

0-*-.  5)/ 10000 
620    QOSUB  5030 
630    IF  E<>4  THEN  660 
640    VC4>-LDQ(V<l)/V(2>)/(Vt6> 

»LDQ(l+V(3J/Vt6) ) ) 
650    QOSUB  5060 
660    BOSUB  52 10 
670    QOTD  260 
660    QOSUB  5340 
690    TITLE*-"  FUTURE  VALUE  WIT 

H  INTEREST  COMPOUNDED  CON 

TINUOUSLY  "! QOSUB  TITLEBA 

R 
700    PRINT 
710    QOSUB  4590 
720    QOSUB  4630 
730    PRINT  "»"J 
740    QOSUB  4720 
750    PRINT  "*") 
760    QOSUB  4760 
770    IF  E-4  THEN  790 
780    BDSUB  4S00 
790    IF  EOl  THEN  820 
800    V<1)-INT<V<2)*EXP(V<3)«Y) 

*100+. 51/100 
810    QOSUB  4970 
820    IF  E02  THEN  850 
830    V(2)-INT<V(1)/EXP(V(3)*Y) 

tl00+.5)/100 
840    GDSUB  5000 
850    IF  E<>3  THEN  880 
860    V(3)»INT<L0Q(V(1)/V(2) l/Y 

*10000+.S)/i0000 
870    QOSUB  S030 


880 

IF  E04  THEN  660 

890 

V {4J  =INT (LDQ ( V ( 1 ) /V  C2) ) /V 

(3)«100+.5)/100 

900 

QOSUB  5060 

910 

GOTO  660 

920 

QOSUB  5340 

930 

TITLE*-"  FUTURE  VALUE  WIT 

H  REQULAR  DEPOSITS  "iQOBU 

B  TITLEBAR 

940 

PRINT 

950 

QOSUB  4590 

960 

PRINT  "(REGULAR  DEPOBIT  • 

■  1 

970 

C=6 

980 

QOSUB  3850 

990 

PRINT  "«"| 

1000 

BOSUB  4720 

1010 

PRINT  "l"| 

1020 

QOSUB  4760 

1030 

IF  E-4  THEN  1050 

1040 

eOSUB  4800 

1050 

QOSUB  48S0 

1060 

IF  EOl  THEN  1090 

1070 

V<1)-INT(V(7)*V<6)«<(1+V( 

3)/V<6))"(V(6)«Y>-l)/V<3) 

«100+.3)/100 

1080 

QOSUB  4970 

1090 

IF  e<>3  THEN  1230 

1100 

V(3)-.99 

1110 

1-0 

1120 

T-INT<V(7)«<< (1+V(3)/V<6> 

J^(V(6)«Y)-1)/(V<3)/V(6)) 

)tl00+.S)/100 

1130 

TE=ABS(V(3)-I)/2 

U40 

I-V<3) 

1150 

IF  ABS(T-V<1))/V(1><.0000 

5  THEN  1210 

1160 

IF  T<V(1)  THEN  1190 

1170 

V<3)-V(3)-TE 

1180 

GOTO  1120 

1190 

V(3)-V(3)+TE 

1200 

GOTO  1120 

1210 

V(3)-INT(V(3)«10000+.5)/l 

0000 

1220 

BOSUB  5030 

1230 

IF  E04  THEN  1260 

1240 

V(4) -LOG (V (3) tV ( 1 ) / ( V (6) « 

V(7J)+l)/(V(6)«L0Q(l-*-V(3> 

/V(6))> 

1250 

QOSUB  5060 

1260 

IF  E07  THEN  660 

1270 

V<7)-INT(V(l)«(Vt3)/V(6>) 

/<a+V(3)/V(6)>''{V<6>«Y)- 

l)tl00+.5>/100 

1280 

PRINT 

1290 

PRINT  "REQULAR  DEPOSITS  R 

EaUIREDi*"|V(7) 

1300 

QOTO  660 

1310 

QOSUB  5340 

1320 

TITLE*-"  FUTURE  VALUE  WIT 

H  CASH  FLOWS  "t QOSUB  TITL 

EBAR 

1330 

PRINT 

1340 

QDSUB  4720 

1350 

BOSUB  4760 

1360 

PRINT  "CASH  FLOW  (+/-)" 

1370 

PRINT 

1380 

V ( 1 ) "0 

1390 

FOR  1=1  TO  V(4) 

1400 

PRINT  "CASH  FLOW  -  YEAR  • 
"J  I 
INPUT  A* 

1410 

1420 

A-VAL(A*) 

1430 

V{1>-V<1>+A«(1+V(3J)'>(V(4 

)-I) 

1440 

NEXT  I 

1430 

V<1)-INT(V<1>«100+.S>/100 

1460 

BOSUB  4970 

1470 

TE-V ( 1 ) 

1480 

QOSUB  5150 

1490 

GOTO  660 

1500 

QOSUB  5340 
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1S10 

TITLE*-"  WITHDRAWAL  QF  FU 

ULAR  LOAN  PAYMENTS - 

2750 

QOSUB  4850 

NDS  "iSOSUB  TITLEBAR 

2150 

BOTOXY  21, 6i PRINT  "2)  REM 

2760 

PRINT  "LAST  PAYMENT  «  WAS 

1320 

PRINT 

AININS  LOAN  LIABILITY" 

■  *' 

1530 

SOSUB  4630 

2160 

GQTOXY  21,71  PRINT  "3)  FIN 

2770 

INPUT  A* 

1S40 

PRINT  "tRESULAR  WITHDRAWA 

AL  LOAN  PAYMENT" 

2780 

A=VAL(A*) 

L  »" 

2170 

GOTOXY  21, Bl PRINT  "4)  SIN 

2790 

FOR  J-1  TO  A 

1550 

C«7 

GLE  PAYMENT  LOAN" 

2800 

I-INT(P«V(3)/VC6)*100+.3) 

1560 

GOSUB  3850 

2180 

SOTOXY  21, 9i PRINT  "5)  LOA 

/100 

1570 

PRINT  "»"; 

N  AHORTIIATION  SCHEDULE" 

2810 

P=P+I-V(7> 

1S80 

GOSUB  4720 

2190 

GOTOXY  21, 101  PRINT  "6)  CA 

2820 

NEXT  J 

1590 

PRINT  "«"; 

LCULATOR  MOD€" 

2830 

LI-INT CP«100+. 51/100 

1&00 

GOSUB  4760 

2200 

SOTOXY  21,lliPRINT  "7)  RE 

2840 

PRINT 

1610 

IF  E-4  THEN  1630 

TURN  TO  MAIN  MENU" 

2850 

PRINT  "LIABILITY  AFTER  "; 

1620 

QOSUB  4800 

2210 

BOTOXY  21,131  PRINT  "YOUR 

Ai"  PAYMENTS!*" (LI 

1630 

GOSUB  4850 

CHOICE?" ; 

2860 

GOTO  2670 

1640 

IF  E02  THEN  1670 

2220 

A-INP(2)-4e 

2870 

GOSUB  5340 

1650 

V<2)-INT<V<8)«V(6)/V(3}t( 

2230 

IF  A<1  OR  A>7  THEN  2220 

2880 

TITLE*-"  LAST  LOAN  PAYMEN 

1-(1+V(3J/V(6))''(-V(6)»Y) 

2240 

ON  A  BOTO  2270,2690,2870, 

T  "I QOSUB  TITLEBAR 

) tl00+.5)/100 

3030,3140,2250,190 

2890 

PRINT 

2250 

nrifiuB  4060 

2900 

QOSUB  4670 

1660 

GOSUB  5000 

2260 

GOTO  190 

2910 

QOSUB  4890 

1670 

IF  E03  THEN  1810 

2270 

QOSUB  5340 

2920 

QOSUB  4720 

16B0 

V<3)-.99 

22B0 

TITLE*-"  REGULAR  LOAN  PAY 

2930 

QOSUB  4930 

1690 

1-0 

MENTS  "1 GOSUB  TITLEBAR 

2940 

QOSUB  4B50 

1700 

R-INTtV!2)»V(3>/V(6)»(l/< 

2290 

PRINT 

2950 

FOR  J-1  TO  V(6)tY 

(l+V(3}/V(6))'^(V(6)tY)-l) 

2300 

PRINT  "«") 

2960 

I-INT(P»V(3)/V<6)«100+.5) 

-M)tl00-i-.S)/100 

2310 

GOSUB  4670 

/100 

1710 

TE-ABS(V«3)-I)/2 

2320 

PRINT  "«"| 

2970 

P-P+I-V(7) 

1720 

I-V(3) 

2330 

GOSUB  4890 

29B0 

NEXT  J 

1730 

IF  ABS(R-V<e))/V(B)<:.0000 

2340 

PRINT  "«"| 

2990 

LP-INT{P«l0«+.5)/100+V(7) 

5  THEN  1790 

2350 

GOSUB  4720 

1740 

IF  R<V(8)  THEN  1770 

2360 

PRINT  "»"| 

3000 

PRINT 

1750 

V<3)=V(3)-TE 

2370 

QOSUB  4760 

3010 

PRINT  "LAST  PAYMENTi*"fLP 

1760 

GOTO  1700 

2380 

IF  E«4  THEN  2400 

1770 

V(3)"'Vf3)+TE 

2390 

QOSUB  4800 

3020 

GOTO  2670 

17B0 

GOTO  1700 

2400 

GOSUB  4850 

3030 

QOSUB  5340 

1790 

V<3)=INT(V(3)«10000+.5)/l 

2410 

IF  E02  THEN  2460 

3040 

TITLE*-"  SINGLE  PAYMENT  L 

0000 

2420 

V(2)-INT(V<7)«V(6)/V(3)t( 

OAN  "I SOSUB  TITLEBAR 

1800 

GOSUB  5030 

I- ( 1+V  (3) /V  <&)  > -^  <-V  (6)  lY) 

3050 

PRINT 

1810 

IF  E04  THEN  1840 

)tl00+.S)/100 

3060 

SOSUB  4670 

1BZ0 

V(4)=LDB(V(6)«V(8)/(V(6)« 

2430 

PRINT 

3070 

GOSUB  4720 

V<e>-V<3)«V<2) ))/<V(6)iLO 

2440 

PRINT  "AMT  OF  PRINClPALl* 

30S0 

QOSUB  4930 

G(l+V(3)/V(6)) ) 

"lV<2) 

3090 

QOSUB  4850 

1830 

eOSUB  5060 

2450 

GOTO  2670 

3100 

V(1)-INT(V(2)«<1+V<3»/V<6 

1840 

IF  EOB  THEN  660 

2460 

IF  E03  THEN  2600 

))-^(YtV<6))*100+. 51/100 

lBn0 

V(8)»INT(V(2)»V(3)/V(6)»( 

2470 

V<3)-.99 

3110 

PRINT 

1/((1+V(3)/V(6))''CV(6>«Y) 

2480 

1-0 

3120 

PRINT  "TOTAL  OWEDi «"| V(l) 

-l)+l)*100+.5)/100 

2490 

P-INT(V(7)«V<6)/V(3)«(l-< 

3130 

QOTO  2670 

1860 

PRINT 

(1+V(3)/V(6) )^(-V(6)«Y))) 

3140 

CS-0 

1870 

PRINT  "REGULAR  WITHDRAWAL 

*100+. 51/100 

31S0 

N5-0 

St»"jV(B> 

2500 

TE-ABS<V(3>-I)/2 

3160 

F-0 

1880 

GOTO  660 

2510 

I-V<3) 

3170 

Pl-0 

1890 

GOSUB  S340 

2520 

IF  ABS(P-V(2n/V(2)  <  .00 

3180 

11-0 

1900 

PRINT  "NET  PRESENT  VALUE: 

005  THEN  2380 

3190 

QOSUB  5340 

«" 

2530 

IF  P<V(2)  THEN  2560 

5200 

TITLE*-"  LOAN  AMORTIZATIO 

1910 

PRINT 

2540 

V(3)-V<3)+TE 

N  SCHEDULE  "i QOSUB  TITLEB 

1920 

PRINT  "INITIAL  INVESTMENT 

2550 

GOTO  2490 

AR 

H 

2560 

V<3)-V(3)-TE 

3210 

QOSUB  4670 

1930 

C-1 

2370 

QOTO  2490 

3220 

GOSUB  4G90 

1940 

QOSUB  3850 

2580 

V(3)-INT(V(3)*10000+.5)/I 

3230 

GOSUB  4720 

1950 

GOSUB  4720 

0000 

3240 

QOSUB  4930 

1960 

GOSUB  4760 

2590 

SOSUB  5030 

3250 

PRINT  "#  OF  PAYMENTS  YEAR 

1970 

PRINT  "CASH  FLOW  (+/-) " 

2600 

IF  E04  THEN  2630 

LY" 

1980 

PRINT 

2610 

V  (4 )  —LOS  <  1-V  (3)  *V  (2)  /  <V  < 

3260 

BOSUB  3850 

1990 

NV— V(2) 

6)»V(7)) )/<V(6)«L0S(V(3>/ 

3270 

PRINT  "ENTER  THE  PERIOD  0 

2000 

FOR  I-l  TO  V(4) 

V<6)+1) ) 

F  THE  YEAR  IN  WHICH  THE  L 

2010 

PRINT  "CASH  FLOW  -  YEAR  • 

2620 

GOSUB  5060 

OAN  BEGAN" 

",I 

2630 

IF  E07  THEN  2670 

3280 

INPUT  N 

2020 

INPUT  A* 

2640 

V(7)-INT(V<3)tV(2)/<V<6>« 

3290 

NE-N 

2030 

A-VAL<A«) 

Cl-(V<3>/V<6)+l)''(-Vt6)«Y 

3300 

NP-(V(4)tl2-»-V(5>)/(12/V(6 

2040 

NV«NV+A/((V(3)+1)'"I) 

) ) )tl00+.5)/100 

)  ) 

2050 

NEXT  I 

26S0 

PRINT 

3310 

NY-INT ( ( (N-1 ) +NP) /V  t6) +. 9 

2060 

NV-INT(NVtl00+.5)/100 

2660 

PRINT  "REQ  PAYMENTS*" J  V (7 

9) 

2070 

PRINT 

) 

3320 

PRINT  "ENTER  THE  RANGE  OF 

2080 

PRINT  "NET  PRESENT  VALUE i 

2670 

GOSUB  5210 

YEARS  YOU'D  LIKE  TO  EXAM 

«";NV 

2680 

GOTO  2120 

INE  (FIRST,  LAST)" 

2090 

TE«NV 

2690 

GOSUB  5340 

3330 

INPUT  Fl.Ll 

2100 

SOSUB  51S0 

2700 

TITLE*-"  REMAINING  LOAN  L 

3340 

IF  LK-NY  THEN  3360 

2110 

GOTO  660 

I ABILITY  "I QOSUB  TITLEBAR 

3350 

LI -NY 

2120 

QOSUB  5340 

2710 

PRINT 

3360 

FOR  Jl-1  TO  LI 

2130 

TITLE*-"  LOANS  "i QOSUB  TI 

2720 

SOSUB  4670 

3370 

IF  JKFl  THEN  3390 

TLEBftR 

2730 

QOSUB  4890 

3360 

QOSUB  5250 

2140 

SOTOXY  21,5lPRINT  "D  REG 

2740 

QOSUB  4720 

3390 

FOR  J-1  TO  Vtil-N+l 
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3400  I-INT<P»V(3)/V<6)»10«+.5) 

/100 

3410  MS-NS-cl 

3420  PP-V(7)-I 

3430  IF  JIONY  THEN  3470 

3440  IF  N50NP  THEN  3470 

3450  PP-P 

3460  F-1 

3470  IF  JKFl  THEN  3500 

3480  PRINT  TAB <S); MID* (aTR*<N3 

),2,LEN(aTR«(N5))-l)|TAB( 

Sl)lINT«P*100+.a>/l«»| 

3490  PRINT  TAB(S2)5 INTtPP»100+ 
.5>/1005D»;TflBtS3>  1 

3300  P=P+I-V(7) 

3510  IF  F=0  THEN  3540 

3520  P=0 

3530  J=V(6) 

3S40  IF  JKFl  THEN  3570 

3550  PRINT  I;TAB(S4) ; INT(P*100 

+.5)/100! 

3560  PRINT 

3570  11=11+1 

3580  P1=P1+PP 

3SV0  C5=C5+1 

3600  IF  C50DS  THEN  3670 

3610  IF  JKFl  THEN  3670 

3620  GD5UB  5210 

3630  GOSUB  5340 

3640  CS>-0 

3650  IF  J«=Vt6)-N+l  THEN  3670 

3660  eOSUB  5250 

3670  NEXT  J 

3680  IF  JKFl  THEN  3790 

3690  IF  F=0  THEN  3720 

3700  BOTOX Y  0,0 

3710  PRINT  "FINAL  PAYMENT  !*"j 

INT<<PP+I»*100+.5>/100 

3720  PRINT 

3730  PRINT  "TOTAL  INT  PAID  IN 

YR  '*;J1;":«";  INT(II«100+. 

S>/100 

3740  PRINT  "TOTAL  PRINC  PAID  I 

N  YR  "|Jl|"l*"lINT(Pl«100 

+.5)/100 

3750  IF  F-1  THEN  3830 

3760  IF  J1"L1  THEN  3830 

3770  SOSUB  5210 

3780  GOSUB  5340 

3790  C5=0 

3B00  Pl-0 

3810  11-0 

3B20  N« 1 

3830  NEXT  Jl 

3640  GOTO  2670 

3850  C»C+l 

3860  IF  C<>3  THEN  3B90 

3870  PRINT  V<3)«100, 

3B80  GOTO  3900 

3890  PRINT  V(C>, 

3900  INPUT  A» 

3910  IF  LEN(A*)<>0  THEN  3930 

3920  RETURN 

3930  IF  A«<>"MR"  THEN  3990 

3940  PRINT  "MEM-"|Mj"   USE  AS 

VARIABLE  HERE  (Y/Nl  " 

3950  INPUT  A* 

3960  IF  A«-"N"  THEN  3900 

3970  V (C) -M 

39B0  RETURN 

3990  IF  At-"X"  THEN  E-Ci RETURN 

4000  IF  ft«-"x"  THEN  E-C I  RETURN 


4010 
4020 
4030 
4040 
40S0 
4060 


4070 


V{C>-VALCA«> 

IF  COS   THEN  4040 

V(C)-V{C)/100 

RETURN 

REM  CALCULATOR  hODE 

BOSUB  33401  TITLE*-"  Calcu 

lator  Mod*  "i BOSUB  TITLES 

AR 

M5-0 


4080 

QOBUB  4410 

4B00 

4090 

INPUT  A» 

4B10 

4100 

IF  ASCCA«)>57  THEN  4130 

4820 

4110 

T-VAL{A«) 

4S30 

4120 

SOTO  4090 

4840 

4130 

FOR  I-l  TO  8 

4650 

4140 

IF  A«<>MID»(V*, I, 1>  THEN 
4170 

4150 

PRINT  Vtl) 

4860 

4160 

T=V ( I > 

4870 

4170 

NEXT  I 

4880 

41B0 

FOR  J=l  TO  6 

4890 

4190 

IF  A»<>MID«(C2», (J-l)«2+l 

4900 

,2)  THEN  4210 

4910 

4200 

ON  J  GOSUB  4460,4480,4500 

4920 

,4520,4540,4560 

4930 

4210 

NEXT  J 

4940 

4220 

FOR  K-1  TO  4 

4950 

4230 

IF  A«<>MID«(C»,K,n  THEN 

4960 

4250 

4970 

4240 

ON  K  BOSUB  4290,4340,4410 
,4440 

4980 

4250 

NEXT  K 

4990 

4260 

IF  M3-0  THEN  4090 

5000 

4270 

M5-0 

5010 

4280 

RETURN 

4290 

FOR  I-l  TO  e 

5020 

4300 

PRINT  MID«<V»,I,1)!"   ",V 

5030 

(I) 

5040 

4310 

NEXT  I 

4320 

PRINT 

5050 

4330 

RETURN 

5060 

4340 

PRINT  "IN  WHAT  VARIABLE  " 

5070 

4350 

1 

INPUT  A« 

5080 

4360 

FOR  1=1  TO  8 

5090 

4370 

IF  A»<>MID«(V«,I,1)  THEN 

5100 

4390 

5110 

4380 

V ( I ) -M 

5120 

4390 

NEXT  I 

5130 

4400 

RETURN 

4410 

COLOR  2,l:eQT0XY  0,03PRIN 

5140 

T  C0*i"  "|Cl«|"  MEM-»|MiC 

5150 

OLOR  1,1 

5160 

4420 

PRINT 

5170 

4430 

RETURN 

4440 

M5-1 

5180 

4450 

RETURN 

5190 

4460 

M"M+T 

4470 

QOTQ  4S70 

5200 

4480 

M=M-T 

5210 

4490 

GOTO  4570 

5220 

4500 

M-=M«T 

4510 

GOTO  4570 

4520 

M-M/T 

5230 

4530 

GOTO  4570 

5240 

4540 

T=M 

5250 

4550 

GOTO  4570 

5260 

4560 

M=0 

4570 

PRINT  "MEM="sM 

5270 

4580 

RETURN 

4590 

PRINT  " (FUTURE  VALUE  »" 

4600 

C-0 

5280 

4610 

SOSUB  3S50 

5290 

4620 

RETURN 

5300 

4630 

PRINT  "(PRESENT  VALUE  «" 

4640 

C-1 

4650 

GOSUB  3850 

5310 

4660 

RETURN 

B32fl 

4670 

PRINT  "PRINCIPAL  «" 

5330 

4680 

C=l 

3340 

4690 

GOSUB  3850 

4700 

P-V(C) 

5350 

4710 

RETURN 

5360 

4720 

PRINT  "ANNUAL  INT  RATE  tX 
)" 

C»2 

5370 

4730 

5360 

4740 

SOSUB  3B50 

4750 

RETURN 

5390 

4760 

PRINT  "FOR  «  OF  YEARS" 

4770 

C-3 

5400 

4780 

BOSUB  3850 

4790 

RETURN 

5410 

PRINT  "FOR  #  OF  MONTHS" 

C-4 

BOSUB  3850 

Y-V<C-1)+V(C)/12 

RETURN 

PRINT  "#  OF  PERIODS  (COMP 

QUNDING,  DEPOSITS,  WITHDR 

AWALB,  PAYMENTS)  YEARLY" 

C-3 

GOSUB  3BS0 

RETURN 

PRINT  "PAYMENTS  •" 

C-6 

GOSUB  3B50 

RETURN 

PRINT  "TERM  OF  LOANi " 

GOSUB  4760 

GOSUB  4800 

RETURN 

PRINT 

PRINT  "FUTURE  VALUEi«"jV( 

1) 

RETURN 

PRINT 

PRINT  "REQUIRED  INVESTMEN 

Tl»"tV(2) 

RETURN 

PRINT 

PRINT  "ANNUAL  INT  RATE  <X 

)  REQUIREDi" I V (3)1100 

RETURN 

V(5>~V(4)-INT(V<4)) 

V(3)-INT(INT<12»V<5)«10+. 

3)/10) 

V<4)-INT<V<4)) 

IF  V(5)<>12  THEN  3120 

V(4)-V<4)+1 

V<3)-0 

PRINT 

PRINT  "#  OF  YEARS  AND  MON 

TH8i"iV<4!  r',"|Vt5) 

RETURN 

PRINT 

IF  TE>-0  THEN  5190 

PRINT  "THIS  IS  A  LOSING  I 

NVESTMENT. " 

RETURN 

PRINT  "THIS  18  A  PROFITAB 

LE  INVESTMENT." 

RETURN 

PRINT 

COLOR  2, 2 1  PRINT  "Pr«mm  «n 

y  k>y  to  continue") I  COLOR 

1,1 

A  -  INP(2) 

RETURN 

OOBUB  5340 

PRINT  "LOAN  AMORTIZATION 

SCHEDULE  FOR  YR  "|J1 

PRINT  "PRIN  •"|V<2)r'   RA 

TE  "lV<3)»100l"X"|"   PAYM 

•"|V(7) 
PRINT 
COLOR  3, 1 

PRINT  TAB(5)I"#"|TABC11) I 
"BEG  BAL"|TAB(26)|"PRINC" 
|TAB(41)|"INT"i 
PRINT  TAB(56)("END  BAL" 
COLOR  1 , 1 
RETURN 
CLEARW  2IFULLW  2lS0T0Xy  0 

,0 

RETURN 

TITLEBARi 

A«   -   GB    I    QINTIN   -   PEEI<:<A 

#+B) 

POKE  GINTIN+«,PEEK(SY3TAB 

+B)  I  POKE  arNTlN+2,2 

8*  -  QINTlN+4  I  TITLE*  - 

TITLE*  +  CHR*{0) 

POKE  B#,VARPTR (TITLE*)  i 

QEM8YBC10S} 

RETURN  @ 
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Fast  IBM  Batch  File 

Editor 


Tony  Roberts,  Production  Direotor 


Now  it's  quick  and  easy  to  edit  and 

fine-tune  batch  files  with  this  DOS 
utility.  It  works  on  any  IBM  PC  or 
PCjr  with  an  80-column  monitor. 


The  power  of  the  batch  file  quickly 
becomes  evident  to  anyone  who 
works  regularly  in  PC-DOS.  The 
hardy  AUTOEXEC.BAT  handles  a 
variety  of  chores  each  time  the  sys- 
tem is  booted,  and  any  number  of 
other  .BAT  files  stand  by,  ready  to 
help  with  such  tasks  as  initializing 
applications,  sending  out  printer 
codes,  and  presenting  program 
menus. 

The  problem  with  batch  files  is 
that  to  be  effective  and  helpful, 
they  need  to  be  adjusted  as  your 
system  grows  and  your  applications 
change.  Performing  the  necessary 
batch-file  maintenance,  however,  is 
often  so  cumbersome  that  it's  dis- 
couraging. Loading  a  full-blown 
word  processor  to  edit  a  five-  to  ten- 
line  batch  file  can  be  a  lot  more  time 
and  trouble  than  it's  worth. 

"EdBat"  solves  this  problem 
by  focusing  all  its  energy  on  your 
batch  files.  EdBat  is  without  frills, 
but  it's  fast  and  easy  to  use. 

Wtiat  EdBat  Does 

EdBat  is  a  full-screen  editor  with 
very  limited  features.  Because  it  is 
designed  for  speed,  it  limits  itself  to 
files  of  fewer  than  512  bytes — ade- 
quate for  most  batch  files.  (If  your 
file  is  longer,  you're  probably  better 
off  with  a  more  sophisticated  editor.) 
When  called,  the  program 
clears  the  screen  and  displays  the 
file  you  want  to  edit.  Using  the 
cursor  keys,  you  can  move  to  the 


appropriate  place,  make  the  neces- 
sary changes,  and  press  Alt-S  to 
save  the  edited  file.  It  is  not  impos- 
sible to  open  a  file,  edit  it,  close  it, 
and  be  back  at  the  DOS  prompt  in 
as  little  as  15  seconds. 

The  price  you  pay  for  this  fast 
operation  is  that  EdBat  has  very  few 
features.  You're  essentially  limited 
to  the  regular  character  keys  and 
the  cursor  keys.  The  Insert  key  does 
not  work,  the  Delete  key  does  not 
work,  nor  do  the  function  keys  per- 
form any  function.  The  Backspace 
key  moves  the  cursor  back  a  charac- 
ter, but  it  does  not  perform  a  delete. 

If  you  were  writing  a  novel, 
these  restrictions  would  be  serious, 
but  in  batch  file  editing,  none  of 
them  is  particularly  restrictive. 
With  batch  files,  you're  usually  just 
performing  one  or  two  simple  oper- 
ations such  as  adding,  deleting,  or 
correcting  a  line.  EdBat  can  handle 
all  these  tasks  efficiently. 

Using  Ihe  Program 

EdBat  is  a  machine  language  pro- 
gram that  is  activated  from  the  DOS 
prompt.  The  program  listed  below, 
"EdBat  Loader,"  is  a  BASIC  pro- 
gram that  creates  the  file  EDBAT- 
.COM  from  the  information  in 
BASIC  DATA  statements.  Type  in 
EdBat  Loader  using  the  "IBM  Auto- 
matic Proofreader,"  save  a  copy  to 
disk,  and  then  run  it  once  to  create 
EDBAT.COM. 

To  run  EdBat,  enter  this  line 
from  the  DOS  prompt: 
EDBAT  filename 

(The  EDBAT.COM  file  must  be  on 
the  disk  in  the  current  drive  when 
you  enter  this  command.)  Filename 
is  the  name  of  the  file  you  vrish  to 


edit.  Full  drive  and  subdirectory 
specifications  are  allowed  when  in- 
dicating a  filename.  If  the  file  is  too 
long  or  if  EdBat  is  unable  to  open 
the  file,  the  program  will  print  a 
message  and  exit.  If  the  file  you 
have  specified  does  not  exist,  EdBat 
assumes  you  are  creating  a  new  file. 

In  a  matter  of  seconds,  the  file 
you  are  to  edit  is  displayed  on  the 
screen  below  a  line  containing  the 
program  title  and  the  name  of  the 
current  file.  If  you  have  started  a 
new  file,  the  screen's  work  area  will 
be  blank. 

Use  the  cursor  keys  to  move 
around  the  file,  editing  as  needed. 
Notice  that  a  triangle  signals  the 
end  of  each  line.  If  you  decide  to  cut 
a  line  short,  move  to  the  appropri- 
ate spot  and  press  Enter.  A  triangle 
is  inserted  and  the  cursor  moves  to 
the  beginning  of  the  next  line.  The 
screen  may  continue  to  show  char- 
acters beyond  the  end-of-line 
marker,  but  they  vdll  be  ignored 
when  the  file  is  saved. 

To  delete  an  entire  line,  simply 
move  to  the  first  position  on  that 
line  and  press  Enter.  An  end-of-line 
marker  appears  at  that  spot,  indi- 
cating that  the  line  will  be  ignored. 

Inserting  a  line  is  slightly  more 
difficult  since  there  is  no  insert 
function.  Move  the  cursor  to  the 
end-of-line  marker  on  the  line  that 
will  precede  your  new  line.  Press 
Ctrl-Y  and  a  down-arrow  character 
(i)  will  replace  the  end-of-line 
marker.  Add  the  new  line  right  after 
the  down  arrow  and  press  Enter  as 
usual.  When  the  file  is  saved,  the 
lines  will  be  adjusted. 

Saving  The  Changes 

When  you're  finished  editing,  press 
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Alt-S  to  save  the  file.  The  program's 
save  routine  reads  the  screen  and 
saves  what  it  sees  to  your  file.  It 
begins  with  the  first  line  of  the  text 
area  and  continues  until  it  finds  a 
space  in  the  first  position  of  any 
line.  EdBat  ignores  any  characters 
in  a  line  which  follow  the  first  end- 
of-line  marker. 

The  only  other  option  the  pro- 
gram offers  is  Alt-Q,  the  Quit  op- 
tion, which  returns  you  to  DOS 
without  changing  the  original  file. 
In  nearly  every  case,  your  entire  file 
will  fit  easily  on  the  screen.  If  part 
of  your  file  scrolls  off  the  screen, 
use  Alt-Q  to  quit  and  find  another 
method  of  editing  the  file.  EdBat 
cannot  save  what  it  cannot  see. 

Unlike  many  word  processors, 
EdBat  does  not  make  a  backup  of 
your  original  file.  In  most  cases, 
though,  a  backup  of  a  very  short  file 
is  superfluous.  For  years,  EDLIN, 
the  line  editor  included  with  PC- 
DOS,  had  been  my  batch  file  editor, 
Eventually,  though,  I  lost  patience 
with  it  over  the  time  it  spent  writing 
backup  files  and  went  to  work  on 
EdBat. 

EdBat  Command  Summary 

Alt-Q     Quit 

Alt-S      Save 

Ctrl-Y    Multistatement  deiimiter  (prints  as 
a  down  arrow) 

Enter      End-of-line  (prints  as  left-pointing 
triangle) 

Space     Space  in  first  position  of  line  sig- 
nals text  end 


EdBat  Loader 

For  instructions  on  entering  ttiis  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  compute!. 

HL    10   CLS 

EI   20   OPEN    ■•EDBAT.COM"    AS    1    LEN 

"    1 
FC  30    F^IELD    1,     1    AS    A$ 
eP  40   PRINT:PRINT"Writing    EDBAT. 

COM  to   disk.    Please  wait." 
6C  50    FDR    1  =  1    TO    B:READ    B»:QOSUB 

1301  NEXT  I 
a  bB    FDR  1=1  TO  75!B»="5F":GQSU 

B  1301  NEXT  I 
SB  70  B*="24'*:BDSUB  130 
DF  B0  FDR  1  =  1  TD  74:  B*="0" :  GOSUB 

13BINEXT  I 
Hfi  90  FOR  1  =  1  TO  £>4e:READ  B*:  6D 

SUB  1301  NEXT  I 
08  100  CLOSE 
HA  110  PRINT!  PR  I  NT  "EDBAT.  COM  has 

ba>n  crvatad. " 
LD  120  END 

HF  130  REM  write  byte  to  disk 
Oil  140  LSET  A*  =  CHR$(VAL("JiH"+B 

«)) 
U  150  PUT  #1 
m  160  RETURN 


««  170  DATA  E9,  E0,  0,  45,  64,  4 

2,  61,  74,  2,  0 

C£  180  DATA  2,  50,  6C,  65,  61,  7 

3,  65,  20,  73,  70,  65,  63 
,  69,  66,  79,  20 

EK  190  DATA  66,  69,  6C,  65,  6E, 
61,  6D,  65,  2E,  D,  A,  24, 
43,  72,  72,  6F 

U  200  DATA  72,  20,  6F,  70,  65, 
6E,  69,  6E,  67,  20,  66,  6 
9,  6C,  65,  2e,  D 

!l  210  DATA  A,  24,  46,  69,  6C,  6 

5,  20,  74,  6F,  6F,  20,  6C 
,  6F,  6E,  67,  2E 

eP  220  DATA  D,  A,  24,  FC,  BF,  54 
,  1,  BE,  80,  0,  AC,  A2,  9 

9.  1,  FE,  E 

H  230  DATA  99,  1,  3C,  0,  75,  9, 
BA,  Al,  1,  EB,  7,  2,  E8, 
25,  2,  AC 
FH  240  DATA  3C,  D,  74,  3,  AA,  EB 
,  Fa,  EB,  BA,  1,  73,  E,  3 
D,  2,  0,  74 
Bft  250  DATA  30,  BA,  BC,  1,  EB,  E 
C,  1,  E8,  A,  2,  BA,  26,  4 
,  SB,  IE,  9A 
SI  260  DATA  1,  SB,  E,  9F,  1,  B4, 
3F,  CD,  21,  3B,  6,  9F,  i 
,  75,  C,  EB 
M  270  DATA  A0,  1,  BA,  D2,  1,  E8 
,  CB,  1,  EB,  E9,  1,  A3,  9 

6,  1,    E8,    91 

H4  280   DATA    1,     EB,     CB,     1,     BA,    3, 
1,    E8,    B9,     1,    C6,    6,    9E, 
1,    0,    C6 
ItF  290   DATA   6,    9D,     1,     14,    E8,    60 

,     1,     BE,    35,     1,    33,    C9,    8 

ft.     E,    99,     1 
HP   300   DATA   AC,     BA,     D0,     80,     Fft, 

61,    72,    3,    80,    E2,    DF,    EB 

,    9C,     1,    E2,    F0 
m.  310    DATA   C6,     6,     9E,     1,    2,    C6, 
6,    9D,     1,    0,    EB,    3A,    1, 

83,    3E,    96 
OJ   320    DATA    1,     0,     74,     IF,     FC,     BE 

,    26,    4,    BB,     E,    96,     1,    AC 

,    BA,    D0,    80 
JK  330    DATA    FA,     D,    75,     7,     B2,     11 

,    EB,    71,     1,    B2,    D,    £8,    6 

C,  1,    E2,    EC 

Hll  340   DATA   EB,     14,     1,    B4,    0,    CD 
,     16,    3C,    0,    74,     13,    3C, 

D,  74,     A,    3C 

HO   350   DATA   8,     B4,     4B,     74,     IC,     3 
C,    19,    72,    EA,    EB,     IF,    1, 
EB,    E5,    80,    FC 
P£  360    DATA   48,    75,    E,    80,    3E,    9 

E,  1,    2,    74,    D9,    FE,    E,    9 
E,     1,    EB,    E6 

OB   370    DATA   0,     80,     FC,     4B,     75,    E 

,    80,    3E,    9D,     1,    0,    74,    C 

6,    FE,    E,    9D 
DB  380    DATA    1,    E8,    D3,    0,    80,    FC 

,    4D,    73,    E,    80,    3E,    9D, 

1,    4F,    74,    B3 
OJ  390    DATA   FE,    6,    9D,     1,    E8,    C0 

,    0,    80,    FC,    30,    75,    E,    B 

0,    3E,    9E,    1 
«   400    DATA    la,     74,     A0,     FE,     6,     9 

E,     1,     E8,     AD,     0,     80,     FC, 

10,  75,    6,    E8 

it  410    DATA    FD,     0,     ES,     F,     1,    80, 
FC,     IF,    75,    a9,    C7,    6,    9 
6.     1,     0,     0 
a  420    DATA    BF,     26,     4,    C6,     6,     9E 
,     1,    2,    C6,    6,    9D,     1,    0, 
EB,    87,    0 
)tL  430    DATA    C6,     6,    93,     1,     0,    B4, 
8,    CD,     10,    3C,    20,    74,    4 
E,    3C,     11,    75 
BB  440    DATA    9,     FE,    6,    9E,     1,    EB, 
6F,     0,    EB,    DE,     80,     3E,     9 
5,     1,     50,     77 


DJ  450 


DE  460 


Al  470 


LC  480 


CF  490 


LA   500 


HD  510 


Ca  320 


LC  530 


PH   540 


JD  530 


IS  560 


IS  570 


BF  380 


DATA    IB,     B4,     8,     CD,     10,     3 

C,  11,    74,     10,    3C,     19,    75 
,     IC,    B0,    D,    AA 

DATA  FF,  6,  96,  1,  B0,  A, 
EB,     11,    90,    B0,    D,    B4,    A 

,    AB,    B3,    6 

DATA  96,  1,  2,  FE,  6,  9E, 
1,    EB,    AF,     AA,     FF,     6,     96 

.     1.     FE,     6 

DATA  95,  1,  FE,  6,  90,  1, 
EB,     2E,     0,     EB,     BF,     FB,     B 

A,    55,     1,    B4 

DATA    3C,     B9,     0,     0,     CD,     21 

,     73,     9,    BA,     BC,     1,     EB,     6 

3,    0,    EB,    63 

DATA   0,     8B,     D8,     SB,     E,     96 

,     1,    BA,    26,    4,    B4,    40,    C 

D,  21,    E8,    21 

DATA   0,     E8,     5B,     0,     E8,    6D 

,    0,    BA,    36,    9E,     1,    8A,     1 

6,    9D,     1,    B4 

DATA    2,    CD,     10,    C3,    FB,     B 

A,    S3,     1,    B0,    2,    B4,    3D, 

CD,    21,    A3,    9A 

DATA    1,    C3,    as,     IE,    9A,     1 

,    B4,    3E,    CD,    21,    C3,    BA, 

D0,    60,    FA,    D 
DATA   74,    a,    E8,    23,    0,    FE 
,    6,    9D,     1,    C3,    B2,     11,    E 
8,     IB,    0,    B2 
DATA   D,     EB,     16,    0,     B2,    A, 

Ee,     11,    0,    FE,    6,    9E,     1, 

C6,    6,    9D 
DATA    1,    0,     C3,    50,    B4,     9, 

CD,    21,    58,    C3,    B4,    2,    C 
D,    21,    C3,    B4 
DATA    F,     CD,     10,     88,     3E,     9 
C,     1,    B4,    0,    B0,    2,    CD,    1 
0,    B4,    5,    B0 

DATA   0,     CD,     10,    C3,     CD,     2 
0  rR 


DISKETTES 


BASF  maxEJI. 


5V4"SS 

S      QBOX 

S-I  n  BOX 

1  UOF10 

5y4"DS 

Si  -1    BOX 
1    lOFlO 

SH  C  BOX 

1  OOF10 

5V4"HD 

SO>1  BOX 

SOQ  BOX 

SVa"  SS 

S       QBOX 
OOF    5 

S1QB0X 
1  SOFfO 

3V2"DS   ^150%°^  ^35o^F°,^o 

Minimum  Disl<ette  Order  SWO 


300/1200  MODEM 


Wayes  Compatible 

Volksfnodem  12  j 

Signalman  Express.. .'199 
Volksmodem  30D  '5S 


J?  i_-/  li—? 


W:rA$i»l:l 


NOW  WITH  DMA 

•  2nd3BQK.  10MB 

Or  2DIVIB  Drives 

•  Memory  Plus 

Upgrades 

•  Keyboard  Cables 
■  Serial  Cables 


HMBH     Catalog  of 

t  U  ^  L     Racore  and  other 

I   fltt    PCjr  products 


MICRO, 

MARKETING 


404-441-1081  GA 
800-652-9289  USA 
875  GUN  RIDCEDR*  LILIIURN,CA30247 


3-D  Tic-Tac-Toe 

For  Atari  ST 


This  new  rendition  of  an  old  favorite 
lets  you  match  wits  against  the  ST 
computer  in  a  three-dimensional  con- 
test. You  can  even,  if  you  like,  make 
changes  to  the  program  which  will 
make  the  computer  play  more  aggres- 
sively or  more  cautiously.  "S-D  Tic- 
Tac-Toe"  runs  on  any  Atari  520ST  or 
1040ST  computer  with  a  color  monitor. 


"3-D  Tic-Tac-Toe"  is  a  strategy 
game  where  you  take  on  the  Atari 
ST  in  a  battle  of  wits.  The  object  of 
the  game  is  similar  to  the  traditional 
Tic-Tac-Toe  game,  except  this  ver- 
sion takes  place  in  a  simulated 
three-dimensional  space  containing 
four  game  boards.  To  win,  you 
must  place  four  pieces  in  a  row.  The 
row  may  extend  across  a  single 
plane  or  vertically  though  all  four 
planes.  Though  it's  not  a  flawless 
player,  the  5T  will  provide  you 
with  a  formidable  opponent. 

Entering  Tic-Tac-Toe 

Type  in  the  program  as  listed  and 
save  it  to  disk.  The  program  works 
in  either  low-  or  medium-resolution 
modes.  When  you  run  the  program, 
it  randomly  selects  whether  you  or 
the  computer  should  go  first.  The 
computer  needs  only  a  few  seconds 
to  pick  its  move  and  places  a  red 
uppercase  C  at  the  selected  square. 
(The  ST  takes  less  time  to  move  if 
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"3-D  Tic-Tac-Toe  For  Atari  ST"  chal- 
lenges you  to  best  the  cotupufer  in  a 
three-dimensional  strategic  simulation. 


you  refrain  from  moving  the  mouse 
pointer  around  while  it  is  calculat- 
ing; moving  the  pointer  freezes  nor- 
mal BASIC  operations.  In  addition, 
you  should  avoid  moving  the  slider 
bars  on  the  output  window,  since 
this  may  jumble  part  of  the  game 
board.) 

It's  your  turn  when  the  screen 
prompt  appears.  Use  the  mouse  to 
move  to  the  square  of  your  choice, 
then  click  the  left  mouse  button. 
Due  to  the  slowness  of  ST  BASIC, 
you  may  need  to  hold  the  button 
down  for  as  long  as  one  second 
before  the  computer  recognizes 
your  choice.  A  blue  uppercase  H 
appears  on  the  square  you  have 
chosen.  The  H,  of  course,  stands  for 
the  Human,  you,  and  the  C  stands 
for  Computer. 


Programmed  Strategy 

You  may  be  interested  in  learning 
how  the  ST  plays  this  simple  strate- 
gy game.  The  computer  does  not 
use  a  "look-ahead"  technique,  but 
rather  determines  its  move  by  as- 
signing a  numeric  value  to  each 
empty  square.  This  value  is  ex- 
plained in  the  table,  which  shows  a 
sample  Tic-Tac-Toe  combination  of 
four  squares  in  a  row,  along  with 
the  corresponding  BASIC  line  num- 
ber that  assigns  the  value. 

Combination  Values 


Line 

Pattern 

Value 

540 

HHHH 

human  wins 

540 

cccc 

computer  wins 

550 

H^HH 

33  points 

560 

_H_H 

5  points 

570 

H 

2  points 

580 

CC_C 

77  points 

590 

C      C 

6  points 

600 

_c 

1  point 

Each  computer  piece  is  stored 
with  a  value  of  5  in  the  V( )  array, 
and  each  human  piece  has  a  value 
of  1  in  the  array.  So  if  a  row  of  four 
squares  contains  two  computer 
pieces,  that  combination  has  a  val- 
ue of  10.  Lines  540-600  then  con- 
vert these  combination  values  into 
point  values,  which  are  evaluated 
to  choose  the  next  move.  Note  that 
the  order  of  pieces  in  the  table  has 
no  significance:  What  matters  is  the 
number  of  pieces  and  blanks.  In  the 
third  entry,   for  instance,   the  se- 
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quence  H_HH  merely  indicates 
that  the  row  contains  one  blank  and 
three  human  pieces,  in  any  order. 
No  value  is  assigned  to  a  row  that 
contains  both  computer  pieces  and 
human  pieces  since  it's  clearly  im- 
possible to  win  on  that  row. 

This  game  is  designed  so  that 
the  computer  plays  a  nearly  equal 
balance  of  offense  and  defense.  If 
you  would  like  the  computer  to 
play  more  aggressively,  increase 
the  values  for  offensive  moves  in 
lines  590  and  600.  For  a  more  con- 
servative game,  you  can  increase 
the  values  in  lines  560  and  570. 
With  a  little  experience,  you'll  find 
that  a  change  of  just  one  or  two 
points  in  these  four  lines  will  make 
a  significant  difference  in  the  com- 
puter's move  strategy. 


3-D  Tic-Tac-Toe 


100   fullH  Ziclearw  2 

110    dim  b(64)  ,v(64)  ,x  (64)  ,01(6 

4,2S):gosub    670 
120         '     new   ganiB 
130        clearw   2:color    liprintsfo 

r    s=l    to    64:go5ub    870 
140         gotoxy   x-1, y;print "\ \"j 

inext 
150         for    i=l    to    64!b(i)=0:x<i) 

=0! V (i )=0:next; w( 1 )=0:mv= 

0 
160    randomiz*  0!i+  rnd(l><.5 

then  •"int (rnd(l) »64)+l8g 

Dsub  840; col  or  Zigota    370 

170    '  human  moves 

1S0    go«ub  840: color  4: print: g 

otoxy  0,0!print "Point  and 
Click  to  MOVE" 
170    gosub  mousexy: nx'int (fflSK/ 

9) imy=int (msy/9. 3) 
200    Bq°0:if  msbOl  then  170 
210   for   B=t  to  64!gosuh  870 
220    i-f  y~iny-2  and  abs(x-mx)<  = 

1  then  »q»s 

230    next: if  eq=0  then  190 
240    s-Kq:goBUb  870 
250    i-f  b(B)<>0  then  190 
260    sx^l: gotoxy  x,ys print "H_" 
; lb (b)»1: v(s)=0:gosub  520 

270    if  w(l)>0  then  440 

280         '    coiriputer    moves 

290    gosub  B40;color  2!print:g 

otoxy  0,0:print"Atari  ST' 

s  Move         " 
300    6x=°0ifar  B=l  to  64:  if  b(B 

) >0  or  x(e)°0  then  310  el 

■e  v(s)>0:go6ub  S20 
310    next 

320    B-0ih=0ifDr  1=1  to  64 
330    if  v(i)=h  and  rnddX.S  a 

nd  h>0  then  h=v(l):B=i 
340    if  v(i)>h  then  h=v(i):B=i 

350    next 

360  if  S"0  then  gotoxy  0,0: pr 
int"  DRAW  game  " 
1 1 ••■"D" I  col  or  1:m(1>=1: 

w(2>=«2iw(3)=3:w(4)=4igat 
O  460 


370    goBub  B70ib(s)'=5s v(B>=0 
3S0    for  i»=l  to  4igotoxy  K,y:p 

rint"  t"|:Bound  1,8,1,4,1 

0 
390    gotoxy  x, y: print "C_"; i sou 

nd  1 ,S, 1,5, 10inBxti Bound 

1,0,0,0,0 
400    BX-lifor  1=1  to  64:x(i>-0 

inaxti gosub  520 
410    if  M(1>>0  then  450 
420    goto  170 
430    '  game  over 
440    gotoxy  0,0iprlnt"Yau  WIN 

"|:a 

*-'*H"iooto  460 
450    gotoxy  0,0i print "Computer 

WINS     "|!a«-"C" 
460    gotoxy  0, l!prlnt"CLICK  fo 

r  new  game"; 
470    for  i=l  to  4:s°w(i ) :goBub 
B70igotoxy  x,y;print  a*| 

inext:far  1"!  to  79: next 
480    sound  1,8,5,5,10: sound  1 , 

0,0,0, 0 
490    for  i=l  to  4s»=w(i ) :goBub 
870; gotoxy  x,y: print"   " 

)> next! for  i=l  to  99: next 

500    gosub  mousexysif  n)6b<>0  t 

hen  120  else  470 
510    '  adjust  value  array  V(64 

)  for  computer  move  at  sq 

uare  s 
520   eg-eij'lifor  i-l  to  in(s,0 

) 
530    p«0:for  k-1  to  4:p=p+b(m( 

»,  j)  )  :  J'=J  +  l;nextiq"0 
340    if  p"4  or  p-20  then  for  k 

"0  to  3tw(k+l )=m Cb, j+k-4) 

snext 
550    if  p-S  then  q>°33:goto  620 

560  if  p"2  then  q-Stgoto  620 
570  if  p-1  then  q-2;goto  620 
580    if  p»lS  then  q»77jgoto  62 

0 
590    if  p"10  then  q=6;gota  620 

600  if  p=5  then  q=l;goto  620 
610    If  sx^l  then  620  else  660 

620    v(5>=v(s>+qiif  b ts) >0  the 

n  v(s)"0 
630    if  5x=-0  then  660 
640   for  k=0  to  3ilf  b(in(s,j+k 

-4))=0  then  x <m(s, j+k-4) ) 

=  1 
650         next 
660         next: return 
670         '    load    legal    win   combos    i 

nto    M(64,2a) 
6B0         clearw    2:colar    l:print"    L 

oading    DATA    ..." 
690         for    i=l    to   64:m(i , 0)=0:ne 

xt 
700         for    i=l    to    16:a=i«4-3:f or 
J=l    to   4: H ( j)=a: a=a+l:ne 

X  t : gosub  B20  s  nex  t 
710    for  i=l  to  4:for  j=i  to  i 

+48  step  16:n=j 
720    for  k"=l  to  4:H(k)=n:n=n+4 

:next:gaBub  B20: next: next 

730    for  i=l  to  16: for  j=0  to 

3:»t(  j  +  1  )=jt  16+i  :next:  gosu 

b  820: next 
740    for  i=l  to  28: for  j-1  to 

4iread  a:M( J)=a;next:gosu 

b  820: next  I  return 
750    data  1,21,41,61,2,22,42,6 

2,3,23,43,63,4,24,44,64 
760    data  1,18,35,52,5,22,39,5 

6,9,26,43,60, 13,30,47,64 
770    data  4,19,34,49,8,23,38,5 


3,12,27,42,57, 16,31,44,61 

780  data  13,25,37,49,14,26,38 
,50, 15,27,39,51,16,28,40, 
52 

790  data  1,6,11,16,17,22,27,3 
2, 33,  38, 43, 48, 49, 54, 39, 64 

800  data  4,7,10,13,20,23,26,2 
9,36,39,42,45,32,53,58,61 

810  data  1,22,43,64,4,23,42,6 
1, 13,26,39,52,16,27,38,49 

820  for  k=l  to  4il-m(w<k) ,0)« 
4+l:m<w<k) ,0)-m(w(k) ,0)+l 

830  for  p"l  to  4:n(w(k) ,1)-M( 
p) I l-l+li next 5  next: return 

840    color  limv-mv+lsgosub  clr 

prt! gotoxy  0,2:prlnt"Move 
#  ";mv;: return 
850   clrprtigotoxy  0,0iprlnt  s 

pc (23) J I  return 
860    '  Input  s-square  to  move 

to,  returns  x,y  as  print 

position 
870    a=int((B-l)/16):y-a«4+3lb 

''s-a»16 
BB0   c«int( (b-l)/4) iy=y+c-2:x" 

(4-a)*4+c 
890    x-x  +  (b-c«4)t3-l I  return 
900    mouBexy:poke  contrl,124ip 

oke  contr 1+2,0 
910    poke  contrl+6,0s vdiByB(0) 

920  fflsx'peek (ptsout) :msy=peek 
(pt5aut+2)  ;nisb-peek  (intou 
t )  t  return  (Q 
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Rapid  Transfer 


The  Commodore  64's  BASIC  has  no 
built-in  search-and-replace  function, 
so  renaming  variables  in  a  program 
can  be  a  very  time-consuming  job. 
With  this  utility,  you  can  easily  re- 
name any  type  of  variable  in  a  BASIC 
program.  Though  it's  written  in  ma- 
chine language  for  extra  speed,  no 
machine  language  knowledge  is 
needed  to  use  it. 


No  matter  how  well  you  plan 
ahead,  nearly  every  BASIC  pro- 
grammer needs  to  modify  his  or  her 
work  from  time  to  time.  Renaming 
variables  is  one  of  the  most  tedious 
and  exacting  tasks  you  will  face  as  a 
BASIC  programmer.  You  must 
painstakingly  comb  every  line  of 
the  program  to  insure  that  you  have 
changed  every  reference  to  the  vari- 
able involved.  Should  one  refer- 
ence be  overlooked,  the  program 
will  refuse  to  run  correctly,  if  at  all. 
The  longer  the  program,  the  more 
tiresome  the  task  becomes,  and  the 
greater  the  risk  of  introducing  er- 
rors. The  next  time  you  find  your- 
self in  this  situation,  give  "Rapid 
Transfer"  a  try.  It  automatically  re- 
names any  variable  you  choose, 
whether  string,  numeric,  integer,  or 
array,  l-t's  easy  to  use,  and  gets  the 
job  done  in  a  jiffy. 

Getting  Started 

Type  in  the  program  as  listed,  then 
save  a  copy  to  disk  or  tape.  To 
install  Rapid  Transfer,  simply  type 
RUN  and  press  RETURN.  The  pro- 
gram automatically  loads  a  ma- 
chine language  routine  into  the 
memory  area  beginning  at  location 
50000.  Since  this  memory  zone 
isn't  part  of  BASIC  program  space, 
you  can  load  and  save  BASIC  pro- 
grams without  interference. 


Buck  Childress 


Next,  load  the  BASIC  program 
you  want  to  work  on.  To  activate 
Rapid  Transfer,  type  SYS  50000 
and  press  RETURN.  It  begins  by 
asking  you  for  the  old  variable 
name — the  name  of  an  existing 
variable  which  you  want  to  change. 
Type  in  this  name,  then  press  RE- 
TURN. At  this  point,  you're  asked 
to  supply  a  new  name  for  the  vari- 
able. Should  you  happen  to  make  a 
mistake  while  answering  a  prompt, 
press  the  INST/DEL  key  (pressing 
it  twice  will  start  you  at  the 
beginning). 

You  can  enter  up  to  ten  charac- 
ters for  each  variable  name,  in  case 
you  like  to  use  extended  names 
such  as  HOUSES  or  MATH%.  If  the 
variable  you  want  to  change  is  an 
integer  or  string,  you  will  not  be 
able  to  enter  any  additional  charac- 
ters after  pressing  the  %  or  $  key 
(BASIC  syntax  doesn't  allow  it). 
Also,  you  can  enter  a  number  only 
after  you've  entered  a  letter  (anoth- 
er BASIC  syntax  rule).  Should  you 
enter  different  types  of  variables, 
such  as  renaming  a  numeric  vari- 
able with  a  string  variable.  Rapid 
Transfer  displays  the  message 
TYPE  MISMATCH.  You'll  then  be 
given  the  option  of  going  ahead 
with  the  transfer  or  starting  over. 

If  the  variable  you  want  to 
change  is  an  array,  press  the  aster- 
isk (*)  key.  You  can  do  this  at  any 
time  while  you  are  entering  the 
variable  names,  and  it  has  to  be 
done  only  once.  Note  that  Rapid 
Transfer  can  tell  when  a  variable  is 
an  array  and  responds  accordingly. 
It  is  not  necessary  to  enter  the  pa- 
rentheses which  ordinarily  indicate 
an  array — just  enter  the  name  itself. 
For  example,  to  enter  an  array  that 
you  DIMension  as  A(20),  you  would 
enter  A,  not  A( ). 

After  you   press  the   asterisk 


key,  the  message  ARRAY?  begins 
flashing  at  the  top  of  your  screen. 
This  is  your  prompt  to  enter  the 
number  of  dimensions  in  the  array. 
Enter  1,  2,  or  3,  depending  on 
whether  the  array  has  one,  two,  or 
three  dimensions.  After  you  answer 
the  prompt,  the  message  stops 
flashing.  If  you  make  a  mistake  or 
want  to  cancel  the  array  option, 
press  the  English  pound  (£)  key. 
Rapid  Transfer  will  not  change  an 
array  variable  to  a  nonarray  vari- 
able, or  vice  versa,  nor  will  it 
change  the  number  of  dimensions 
in  an  array. 

After  entering  the  new  variable 
name  and  pressing  RETURN,  you'll 
see  the  message  ARE  YOU  SURE? 
(Y/N),  Press  Y  to  proceed  or  N  if 
you  wish  to  reenter  your  choices. 

Prescan  For 
Name  Conflicts 

The  first  thing  you'll  notice  when 
Rapid  Transfer  begins  working  is 
the  line  numbers  of  your  program 
flashing  at  the  top  of  the  screen. 
Rapid  Transfer  is  prescanning  ev- 
ery line  of  the  program  to  see 
whether  it  already  contains  a  vari- 
able with  the  new  name  that  you 
have  chosen.  If  a  name  conflict  is 
found.  Rapid  Transfer  displays  a 
warning  message.  If  the  variable  is 
an  array,  an  asterisk  appears  next  to 
its  name  (a  two-dimensional  array 
has  two  asterisks,  and  so  forth). 

After  it  finishes  the  prescan. 
Rapid  Transfer  displays  the  prompt 
ARE  YOU  SURE?  (Y/N).  If  no 
name  conflicts  appeared,  or  if  you 
wish  to  proceed  despite  the  conflict, 
press  Y.  Press  N  if  a  conflict  is 
found  or  if  you  simply  change  your 
mind. 

Rapid  Transfer  now  displays 
the  lines  of  your  program  as  it  seeks 
out  the  old  variables  and  renames 
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them.  If  the  old  variable  doesn't 
exist  in  your  program,  Rapid  Trans- 
fer displays  a  warning  message  in- 
dicating that  the  designated 
variable  can't  be  found.  Again,  ar- 
ray variable  names  are  displayed 
with  one,  two,  or  three  asterisks, 
depending  on  the  number  of  di- 
mensions in  the  array.  When  it's 
done,  the  program  lets  you  contin- 
ue with  another  change  (press  Y)  or 
quit  (press  N), 

Safety  Features 

Rapid  Transfer  has  several  buUt-in 
safety  features  to  insure  accurate 
operation.  It  won't  change  anything 
enclosed  within  quotation  marks  or 
anything  which  appears  on  a  line 
following  a  REM  or  DATA  state- 
ment. While  scanning  each  line,  it 
also  checks  for  excessive  length.  If, 
for  example,  you  dedde  to  change 
the  variable  CO$  to  COSTS  and,  as 
a  result,  one  of  the  program  lines 
vrill  exceed  the  80-character  logical 
length.  Rapid  Transfer  aborts  oper- 
ation and  displays  the  line  number 
where  the  excessive  length  oc- 
curred. It  also  displays  that  Une  as  it 
currently  appears  in  the  program  so 
that  you  can  make  any  necessary 
adjustments. 

In  addition.  Rapid  Transfer  can 
tell  the  difference  between  different 
kinds  of  variables.  For  example, 
let's  say  that  you  want  to  rename 
the  numeric  variable  A  to  Al .  Rapid 
Transfer  will  rename  only  the  nu- 
meric variable  A.  It  will  not  rename 
any  integer,  string,  or  array  vari- 
ables of  the  same  name,  nor  will  it 
inadvertently  change  a  variable 
which  happens  to  begin  with  A, 
such  as  AB.  The  same  holds  true  for 
the  other  types  of  variables,  includ- 
ing arrays.  If  you  have  a  one- 
dimensional  array  named  A,  Rapid 
Transfer  will  not  change  a  two-  or 
three-dimensional  array  of  the 
same  name,  or  vice  versa. 

Rapid  Transfer  works  equally 
well  with  extended  variable  names. 
If  you  have  used  HOUSES  in  a 
home  budget  program,  Rapid  Trans- 
fer will  recognize  it  as  HO$,  exactly 
as  the  64  does.  The  entire  name  is 
present  in  the  program  line,  but 
only  the  first  two  characters  are  sig- 
nificant. So  you  can  use  and  change 
extended  variable  names  as  much 
as  you  like,  with  variables  of  any 
type. 


Rapid  Transfer  can  be  brought 
to  a  halt  at  any  time  by  pressing  the 
RUN/STOP  key.  Enter  SYS  50000 
to  reactivate  it. 


Rapid  Transfer 

For  instmctions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  ttiis  issue  of  computei. 

GD    10    PRINTCHR$CI47)CHR$(5)"L0 
ADING    AND    CHECKING    DATA 
[SPACE} LINE: " : J=50000 :L= 
45:C=11 
GS    20    PRINTCHR?(19)TAB(31)L5PR 

INT 
CG    30    FORB=0TOC:READA:POKEJ+B, 

A : X=X+A  s  NEXTB  s  READA 
OR    40    IFXOATHENPRINT  "ERROR    IN 

DATA    LINEi "L:END 
SJ    50   X=0:J=J+12:L=L+5:IFL<685 

THEN20 
GQ    60    IFL=685THENC=9:GOTO20 
EE    70    PRINT "DATA   OK   AND    LOADED 
. . . "!PRINT:PRINT"SYS    500 
00    TO    ACTIVATE.  ..  ":E)!JD 
HM   80    DATA32, 59, 200, 133,198, 13 
3,253,162,96,134,251,142 
,1793 
GF   90    DATA138,2,157,0,201,232, 
208,250,202,142,224,201, 
1957 
PG    100    DATA142,225,201,169,94, 

133,252,141,247,201,162 

,10,1977 
HH  110  DATA32, 71, 200, 133, 254,1 

66,252,169,100,157,0,4, 

1538 
JD  120  DATA173,134,2,157,0,216 

,32,162,200,173,141,2,1 

392 
AC  130  DATA201,2,176,246,3  2,22 

8,255,201,13,208,3,76,1 

641 
DA  140  DATA179,196,201,20,208, 

3,76,136,196,201,92,240 

,1748 
AS  150  DATA51,201,42,208,87,14 

1,239,201,17  3,33,208,14 

1,1725 
GX  160  DATA25,216,32,36,200,20 

6,221,201,208,17,32,36, 

1430 
ER  170  DATA200,238,222,201,48, 

6,32,116,200,76,203,195 

,1737 
DJ  180  DATA32,110,200,206,248, 

201,32,162,200,32,228,2 

55,1906 
QC  190  DATA201,92,208,11,169,0 

,141,239,201,32,110,200 

,1604 
JD  200  DATA76, 247, 195, 201, 49,1 

44,206,201.52,176,202,1 

41,1890 
JP  210  DATA25,4,56,233,49,141, 

234,201,32,116,200,141, 

1432 
EK  220  DATA25,216.140,222,201, 

76,134,195,201,36,240,4 

,  1690 
EB  230  DATA201,37,208,31,166,2 

51,48,14,174,96,201,240 

,1667 
PA  240  DATA236,141,253,201,141 

,254,201,76,34,196,174, 

1 92 , 2099 
FH  250  DATA201,240,222,141,255 

,201,133,254,76,90,196, 


PC  260 


EM 

270 

BF 

280 

KA 

290 

HA 

300 

FM 

310 

XS 

320 

BH 

330 

XF 

340 

DA 

350 

CR 

360 

JH 

370 

GC 

380 

CD 

390 

RP 

400 

AA 

410 

RC  420 


CH  430 


PB  440 


EH  450 


RP  460 


BM  470 


JE 

480 

GX 

490 

DG 

500 

RP 

510 

EX 

520 

166,2175 

DATA254,224,10,144,13,2 
40,2,176,204,162,88,32, 
1549 

DATA71,200,230,254,208, 

195,201,48,144,191,201, 

58,2001 

DATA176,16,174,96,201,1 

64,251,16,3,174,192,201 

,1664 

DATA224, 0,240, 17 3, 208,8 

,201,65,144,16  7,201,91, 

1722 

DATA176,163,230,254,166 

,251,157,0,201,230,251, 

48,2127 

DATA12,174,236,201,224, 

2,176,15,238,236,201,20 

8,1923 

DATA10,174,237,201,2  24, 

2,176,3,238,237,201,32, 

1735 

DATA210,255,230,252,165 

,251,141,247,201,76,121 

,195,2344 

DATA174,247,201,16,112, 

166,211,32,210,255,202, 

208,2034 

DATA2  50,142,192,201,142 

,2  37,201,142,247,201,14 

2,255,2352 

DAT A201, 169, 145, 32, 53, 2 

00,169,192,162,27,160,1 

74,1684 

DATA133,251,132,252,76, 

116,195,166,2  52,173,33, 

208,1987 

DAT A15 7, 0,216, 173,96,20 

1,240,197,166,251,16,22 

6,1939 

DATA173,192,201,240,188 

,141,208,201,173,193,20 

1,141,2252 

DATA209, 201, 16 9, 0,141,1 

38,2,141,98,201,157,0,1 

457 

DATA201,173,254,201,205 

,255,201,240,5,162,44,3 

2,1973 

DATA71,200,16  2,64,32,71 

,200,32,162,200,32,42,1 

268 

DATA200,201,25,240,67,2 

01,39,208,242,76,80,195 

,1774 

DATA17  3,2  51,201,208,26, 

16  2,96,32,8  2,200,17  3,25 

4,1858 

DATA201,240,8,205,97,20 

1,240,3,32,210,255,32,1 

724 

DATA93,200,16  2,117,76,3 

3,197,162,112,3  2,71,200 

,1455 

nATA162,130,32,71,200,3 

2,162,200,32,42,200,201 

,1464 

DATA25 , 240 , 202 , 201 , 39 , 2 

08,242,169,0,133,198,96 

,1753 

DATA141,235,201,169,1,1 

62,8,141,240,201,142,24 

1,1882 

DATA201 ,32, 59, 200, 133,1 

98,168,173,240,201,174, 

241,2020 

DATA201,133,2  53,134,254 

,32,216,199,177,2  53,208 

,14,2074 

DATA17  3,243,201.208,155 

,238,243,201,141,252,20 
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1,76,2332 

1,174,243,201,208,3,17  3 

,36,240,4,201,37,208,9 

EC    530 

DATA60, 197, 32, 216, 199,1 

,1781 

,1651 

77,253,170,32,216,199,1 

SJ 

800 

DATA209, 201, 201, 0,2 08,1 

SK    1070 

DATAl 41, 228, 201, 141, 23 

77,1928 

47,240,37,32,24,200,205 

2,201,76.13,200,201,48 

JA   540 

DATA253,142,249,201,141 

,1704 

,144,1826 

,250,201,32,205,189,169 

RS 

810 

DATA232,201,208,29,164, 

SC    1080 

DATA16,201,5  8,144,8,20 

,32,2064 

2,2  00,177,2  53,240,2  2,20 

1,65,144,8,201,91,176, 

KD    550 

DATA32, 210, 255, 32, 216,1 

1,1929 

1313 

99,169,201,133,252,169, 

BD 

320 

DATA44,Z08,3,238,2  33,20 

KJ    1090 

DATA4, 238, 252, 201, 96,1 

96,1964 

1,201,41,208,240,206,23 

40,232,201,140,252,201 

EP    560 

DATA174,243,201.208,2,1 

0,2053 

,96,2053 

69,208,133,251,162,0,14 

HM 

830 

DATA201,173,233,201,205 

RB    1100 

DATA173,255,201,174,24 

2,1893 

,234,201,240,3,76,38,19 

3,201,240.3,173,254,20 

IK    570 

DATA228,201,142,231,201 

8,2003 

1,96,2214 

,142,242,201,173,232,20 

PS 

840 

DATA173,242,201,32,141, 

HA    1110 

DATA169,40,141,221,201 

1,240.2434 

200,172,243,201,208,32, 

,96,165,203,205,235,20 

KM   580 

DATA6,142,232,201,142,2 

173,2018 

1,240.2117 

52,201,161,253,240,28,3 

EG 

850 

DATA216,201,208,237,169 

FC    1120 

DATA249,141,235,201,96 

2,1890 

,29,32,53,200,162,192,3 

,32,210,255,76,210,255 

BJ    590 

DATA223,199,133,2,32,52 

2,1731 

,32,1992 

,199,165,2,162,0,193,13 

JS 

860 

DATA82,200,32,93,200,16 

SH    1130 

DATA68, 229, 169, 0,1 33,1 

62 

2,102,142,243,201,32.71 

99,133,212,133,216,96, 

SR   600 

DATA251,208,99,230,251, 

,1560 

139,1777 

161,251,240,102,32,216, 

HG 

870 

DATA200,141,2  5  2,201,76, 

JP    1140 

nATA177,200,240,250,32 

199,2240 

234,196,140,245,201,140 

,210,255,232,208,245,1 

RE    610 

DATA76,17  5,197,142,216, 

,251,2277 

89,0,2238 

201,142,244,201,142,246 

HF 

880 

DATA201,174,2  36,201,202 

QR    1150 

DATA201,240,239,32,210 

,201,2183 

,169,20,32,103,200,172, 

,255,232,208,245,173,2 

CM   620 

DATA142,252,201,32,62,2 

230,1940 

39,201,2475 

00,173,245,201,208,16,3 

PP 

890 

DATA201,240,10,4a,6,32, 

GX    1160 

DAT A240, 2 28, 17 4, 2 34, 20 

2,1764 

216,199,136,208,2  50,160 

1,169,42,32,210,255,20 

RQ    630 

DATA216,199,165,253,166 

,  1706 

2, 16 ,2003 

,254,141,240,201,142,24 

KA 

900 

DATA0, 185, 192, 201, 240,1 

**  f    1*  ^^^    f  *«■  >^-f  ^y  fc^ 

1,201,2419 

75,3  2,120,199,200,208,2 

KE    1170 

DATA250,96,173,33,208, 

MG    640 

DATA76,73,197,142,245,2 

45,1997 

76,119,200,173,134,2,1 

01,17  3,249,201,17  2,250, 

FE 

910 

DATA201,128,144,57,166, 

33,1597 

201,2180 

212,208,53,201,131,208, 

SD    1180 

DATA2,162,96,160,5,189 

PG    650 

DATA205 ,224, 201, 208, 5, 2 

2,1711 

,177,200,153,18,4,165, 

04,225,201,240,221,141, 

RR 

920 

DATA240,4,201,143,208,3 

1331 

224,2299 

,141,246,201,56,233,127 

MK    1190 

DATA2, 153, 18, 216, 232,1 

XJ    660 

nATA201,140,225,201,32, 

,1803 

36,16,241,96,172,243,2 

71,200,169,19,141,119,2 

RH 

930 

DATAl 7 0,1 60, 2 55, 202,  2 40 

01 , 1726 

,1520 

,3,200,185,158,160,16,2 

PA    1200 

DAT A2 08, 6, 205, 237, 201, 

PA   670 

DATA169,13,141,120,2,14 

50,2004 

76,155,200,205,236,201 

1.121. 2. 141. 122. 2. 169.1 

HC 

940 

DATA  48,245.200,185,158. 

,240,2170 

143 

160,48,14,238,238,201,3 

CJ    1210 

DATA239,104,104,76,38, 

DG   680 

DATA4,133,198,76,49,168 

2,1767 

198,32,225,255,208,229 

,32,162,200,32,216,199, 

JE 

950 

DATA113,199,169,0,141,2 

, 104 , 1812 

1469 

38,201,76,90,199,56,233 

EM    1220 

DATA104, 169, 0,141, 138, 

DD   690 

nATA76 , 142 , 197 ,142 ,227 , 

,1715 

2,76,68,229,13,83,89,1 

201,142,228,201,142,233 

EO 

960 

DAT A128, 201, 3 2, 2 40,  3. 2 3 

112 

, 201 . 2132 

8,242.201,174,2  44,2  01,4 

HE    1230 

DATA83,53,48,53,48,53, 

SC    700 

f    ■«  ^'  ob    f    m^  id^  f^  mr 

DATA202,134,2,142,230,2 

8,1952 

0,13,13,79,76,63,587 

01,173,246,201,208,2  27, 

CC 

970 

DAT  AH,  208,  30, 166,  2 11, 2 

EF    1240 

DATA32,86,65,82,7  3,65, 

173 , 2139 

24,79.144.3,2  38,244,201 

66,76,69,63,32,0,709 

HF   710 

DATA2  52,201,32,141,200, 

,1759 

AQ    1250 

DATAl 3, 13, 7 8, 69, 87, 32, 

164,2,200,238,230,201,1 

FH 

980 

DATA174,243,201, 208,13, 

86,65,82,73,65,66,729 

77 , 2038 

201,34,208,8,173,216.20 

AF    1260 

nATA76,69,63,32,0,13,l 

EX   720 

DATA253,201,32,240,246, 

1 , 1880 

3,18,84,89,80,69,606 

132,2,238,227,201,174,2 

PK 

990 

DATA73,1,141,216,2  01,96 

RH    1270 

DAT A32, 77, 73, 83, 77. 65, 

39,2185 

,76,210,255,173,238,201 
,1881 

ME   1280 

84,67.72,46,46,46,768 
DATA0,13,13,18,65,82,6 

EF   730 

DATA201,208,53,201,40,2 

GH 

1000    DATA240 , 2 , 1 04 , 104 , 1 04 . 

9,32.89,79,85,32,577 

40,195,32,223,199,17  3,2 

104,162,148,142,244,20 

KE   1290 

DAT A83, 85, 82, 69, 63, 32, 

28,1993 

1,32,1587 

40,89,47,78,41,0,709 

XC   740 

DATA201,208,7,17  3,252,2 

QS 

1010    DATA71,200,174,249,201 

QP    1300 

DATA32,32,18,76,7  3,77, 

01,208,48,240,15,164,2, 

1719 

,173,250,201,32,205,18 

73,84,0,191,153,129,93 

9,169.2114 

8 

MQ   750 

ElATA200,177,253,201,32, 

AE 

1020    DATA32,32,210,255,173, 

FG    1310 

DATAl 46, 146, 129, 3 2, 32, 

240,249,132,2,201,40,24 

240.201,174,241,201,13 

18,69,88,73,83,34,83,9 

0,1967 

3,253,2145 

83 

PR   760 

DATA165,32,24,200,205,2 

RF 

1030    DATA134,254, 169,4, 133, 

FJ    1320 

DATA0,68,79,7  8,69,0,32 

32,201,208,34,173,232,2 

251,164,251,177,253,24 

,32,18,78,79,34,617 

01,1957 

0,14,2044 

EK   1330 

DATA32,70,79,85,7B,68, 

JE    770 

DATA208,82,206,230,201, 

MR 

1040    DATA32,52,I99,230,251, 

0,13,13,67,79,78,662 

76,224,198,201,40,240,3 

76,202,199,230,253,208 

PA  1340 

DATA84,73,78,85,69,63, 

2,19  38 

,2,1934 

32,40,89,47,78,41,779 

QA  780 

nATA32,2  23,199,173,252, 

JG 

1050    DATA230,254,96,164,212 

HF    1350 

DATA0,13,18,69,88,67,6 

201,240,61,173,227,201, 

,240,5,160,0,76,17,200 

9,83,83,73,86,69,718 

201,2183 

,1654 

QK  1360 

DATA32,76,69,78,71,84, 

DG    790 

DATA2,144,16  2,17  3,97,20 

PD 

1060    DATA2O1,32,240,242,201 

72,13,13,0,508                @ 
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Dr.  Sound  For  The  64 


Music  enthusiasts  will  have  a  field 
day  with  this  Commodore  6i  program, 
which  allows  you  to  experiment  with 
a  great  variety  of  different  sound  pa- 
rameters while  the  music  plays.  A 
disk  drive  is  required. 


"Dr.  Sound"  is  an  algorithmic  note 
sequencer  which  plays  notes  ac- 
cording to  parameters  which  you 
choose  in  realtime.  Using  the  64's 
built-in  SID  (Sound  Interface  De- 
vice) chip,  it  simulates  a  single- 
voice  electronic  synthesizer  with 
dynamic  timbre  (tone  color)  control. 
If  you're  familiar  with  conventional 
electronic  synthesizers,  you'll  prob- 
ably recognize  the  screen  display  as 
a  flowchart  of  the  synthesizer's  cur- 
rent patch  or  configuration.  By 
changing  different  elements  of  the 
patch,  you  can  alter  the  character  of 
the  music  dramatically.  After  you 
create  a  patch  you  like,  you  can 
save  it  to  disk  for  later  reloading 
and  use  within  the  program.  If 
you're  new  to  computer-generated 
music,  you'll  enjoy  experimenting 
and  you  can  also  learn  a  good  deal 
from  this  program.  Experts  will  ap- 
preciate all  the  features  available  in 
Dr.  Sound. 

Type  in  the  program  as  listed 
and  save  a  copy  before  you  try  to 
run  it.  Dr.  Sound  always  begins 
with  a  short  pause  while  it  initial- 
izes. Then  you  will  see  the  main 
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display  screen.  The  top  portion  of 
the  screen  contains  a  flowchart  of 
the  synthesizer's  current  patch.  At 
the  bottom  are  several  prompts  in- 
dicating parameters  you  can  change 
by  pressing  various  function  keys. 
The  bottom  screen  line  is  reserved 
for  your  input. 

Music  In  The  Background 

When  the  display  screen  appears, 
you'll  notice  that  background  music 
begins  playing  immediately.  The 
music  will  continue  to  play  at  all 
times  while  the  program  runs,  ex- 
cept during  disk  operations. 

Using  Dr.  Sound  involves 
changing  various  program  parame- 
ters to  alter  the  character  of  the 
music.  As  a  rule,  whenever  you 
change  the  synthesizer's  patch,  the 
screen  display  changes  color  to  in- 
dicate which  part  of  the  synthesizer 
you  are  affecting.  The  different  pro- 
gram options  are  selected  by  press- 
ing one  of  the  eight  special  function 
keys,  fl-f8.  Once  an  option  is  se- 
lected, the  bottom  screen  line 
changes  color  and  displays  the  keys 
you  may  press  to  select  a  choice 
within  that  option.  In  some  cases, 
pressing  the  indicated  key  increases 
the  value  associated  with  that  pa- 
rameter; for  these  options,  pressing 
the  SHIFT  key  along  with  the  indi- 
cated key  decreases  the  same  value. 

Waveform  And  ADSR 

One  of  the  most  fundamental 
changes   involves   waveforms.   To 


choose  a  different  waveform,  press 

the  fl  key.  The  bottom  screen  line 
then  indicates  your  choices.  To 
change  the  waveform,  press  the  W 
key.  There  are  four  wave  shapes 
available.  The  triangle  is  the  sweet- 
est of  these,  containing  only  odd- 
numbered  overtones  decreasing  in 
loudness  exponentially.  The  saw- 
tooth is  the  brightest,  containing  all 
of  the  harmonic  overtones.  The 
pulse  wave  depends  on  its  width 
(duty  cycle)  for  its  harmonic  con- 
tent. The  closer  to  99  percent  or  1 
percent,  the  more  nasal  (oboe-like) 
the  pulse  wave  sounds.  The  closer 
to  a  50  percent  duty  cycle,  the  more 
hollow  (clarinet-like)  it  will  be. 
Press  P  to  change  the  pulse  uddth. 
The  noise  waveshape  is  the  most 
unpitched. 

Ring  modulation  is  a  special 
SID  effect,  which  you  can  toggle  on 
and  off  by  pressing  the  M  key. 
When  an  M  appears  in  the  flow- 
chart between  the  sound  source 
and  the  modulator,  you  can  see  that 
modulation  is  on.  Ring  modulation 
is  possibly  the  most  sophisticated 
timbre  control  on  the  SID  chip, 
making  nonharmonic,  bell-like 
overtones.  The  timbre  of  the  sound 
depends  on  the  frequency  relation- 
ship between  the  sound  source  and 
the  modulator.  (Because  of  the  way 
the  SID  chip  circuitry  is  designed, 
only  triangle  waveshapes  are  avail- 
able for  this  option.) 

Pressing  H  toggles  the  harmo- 
ny option  on  and  off,  which  forces 
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the  sound  source  to  be  harmonic — 
that  is,  synchronous  at  an  exact 
integer  multiple  with  the  modula- 
tor. When  the  harmony  option  is 
selected,  an  H  appears  in  the  dis- 
play between  the  modulator  and 
the  sound  source.  This  can  be  used 
to  shift  the  A440  tuning  of  the 
sound  source  or  to  insure  harmonic 
(more  pitched)  modulation.  Modu- 
lation— like  most  of  the  other  terms 
in  this  article — can  be  best  under- 
stood by  listening  to  the  effect  it  has 
on  different  sounds. 

The  A,  D,  S,  and  R  keys  control 
attack,  decay,  sustain,  and  release, 
respectively.  Attack  is  the  amount 
of  time  it  takes  to  begin  the  note. 
Decay  is  the  amount  of  time  it  takes 
to  drop  to  the  sustain  level,  which  is 
indicated  as  a  percentage  of  the 
loudest  sound  possible.  Release  is 
the  amount  of  time  it  takes  to  return 
to  silence. 

Special  Effects 

The  f3  key  allows  you  to  change  the 
low-pass  filter  parameters,  Q 
changes  the  electronic  resonance, 
which  at  100  percent  almost  whis- 
tles, indicating  sonically  the 
changes  in  the  cutoff  frequency,  F 
changes  the  percentage  of  the  enve- 
lope generator  (ADSR)  used  to  con- 
trol the  cutoff  frequency,  and 
therefore  the  timbre,  during  each 
note.  The  lower  the  percentage,  the 
more  muffled  the  sound  will  be. 

The  f5  key  selects  the  modula- 
tor section.  W  and  P  work  just  like 
the  sound  source  section.  T  toggles 
on  and  off  a  trigger  that  allows  the 
modulator  to  be  heard  while  also 
modulating  the  sound  source.  1  tog- 
gles parallel/oblique  modes  of  the 
interval  relationship  between  the 
modulator  and  the  sound  source.  In 
the  parallel  mode  the  frequency  fol- 
lows the  sound  source  at  an  interval 
indicated  as  a  percentage  of  the 
sound  source  frequency,  M  and  L 
change  this  relationship  in  10  per- 
cent and  1  percent  increments,  re- 
spectively. Note  that  there  is  a 
delay  of  about  six  seconds  to  calcu- 
late these  increments.  In  the 
oblique  mode  the  frequency  of  the 
modulator  is  always  the  same.  That 
frequency  is  tunable  from  1  to  3995 
Hz  (cycles  per  second).  The  F,  Q,  C, 
and  Y  keys  change  the  frequency  in 
1000  Hz,  100  Hz,  10  Hz,  and  1  Hz 
increments,  respectively.   The 


ADSR  articulation  control  for  the 
modulator  is  apparent  only  when 
the  modulator  trigger  is  on. 

The  i7  key  selects  the  control 
section.  The  W,  P,  F,  Q,  C,  and  Y 
keys  work  the  same  way  here  as 
they  do  in  the  modulator  section. 
However,  in  this  case  the  wave- 
shape and  the  relationship  of  the 
frequency  to  the  duration  of  the 
current  note  determine  the  next 
note.  The  triangle  and  sawtooth 
waveshapes  will  produce  easily 
recognizable  patterns.  The  pulse 
produces  a  more  austere  pattern, 
and  the  noise  waveform  produces  a 
random  pattern. 

G  and  A  change  the  gate 
length.  During  the  gate,  the  attack, 
decay,  and  sustain  portions  of  the 
envelope  generators  are  active.  The 
gate  time  does  not  necessarily  need 
to  be  longer  than  the  attack  time 
plus  the  decay  time,  but  if  it  isn't, 
strange  effects,  including  complete 
silence,  may  occur.  R  and  E  change 
the  release  time.  During  the  release 
time,  the  release  portion  of  the  en- 
velope generators  are  active.  After 
the  gate  and  release  time,  it  takes 
about  223  microseconds  to  look  at 
the  keyboard.  This  delay  becomes 
much  longer  if  a  key  has  been 
pressed.  It  takes  another  104-195 
microseconds  to  calculate  the  next 
note.  However,  if  the  release  time 
of  the  sound  source  envelope  gen- 
erator is  long  enough,  these  delays 
will  not  be  apparent. 

Pitch  Sets 

The  f  2  key  allows  a  choice  of  one  of 
the  16  pitch  sets.  The  patterns  gen- 
erated by  Dr.  Sound  will  be  restrict- 
ed to  one  of  these  sets  at  a  time. 
They  are  defined  as  shown  here: 


0 

1 

Major  scale 
Tonic 

2 

3 

Supertonic 
Mediant 

4 

Subdominant 

5 

Dominant 

6 

Submediant 

7 

Diminished 

8 

Subtonic 

9 

A 

Augmented 
Chromatic 

B 

Whole  tone 

C 

East 

D 

Harmonic  minoi 

E 

Pure  minor 

F 

Phrygian 

The  f4  key  allows  control  over 
the  pitch  range.  The  octaves  are 


labeled  from  0  to  7,  with  octave  0 
being  the  lowest.  The  octave  of 
each  note  is  chosen  from  a  set  of 
eight  possibilities,  all  of  which  are 
displayed  on  the  screen.  Pressing  a 
number  from  0  to  7  changes  the 
next  octave  number  in  the  set. 

The  f6  key  allows  control  over 
the  rhythm.  This  is  also  a  set  of 
eight,  controlled  like  the  octaves. 
The  release  time  is  multiplied  by  a 
factor  from  1  to  8. 

The  f8  key  permits  you  to  save 
all  of  the  current  Dr.  Sound  settings 
with  a  filename  of  your  choice,  or  to 
load  a  file  of  previously  saved 
settings. 


Dr.  Sound  For  The  64 

For  Instructions  on  entering  this  listing,  pleas© 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  In  this  Issue  of  compute!. 

CB  10  POKE53280,0:POKE53231,0: 
PEIKTCHR?(142)C-iR$(8)  :PR 
INT"|83{CLR)":POKE214,10 
:PHINT 

DM    20    PRINTTAB(16) "DR.     SOUND": 
PRINTTAB(13)" {DOWNJWILL 
{space} BE    RUNNING" 

RK  30  PRINTTAB(14)" [DOWNJiN  24 
SECONDS ":C5=CHR$ (13) 

FD  40  DIHPI5(ll),PT?(15),OC5(7 
),RH$(7),PI(12),PM(12),A 
S(15),R5(16), 55(15), P5(l 
5) 

GS  50  FORC=0TO7:POKE49920+C,4* 
16  rNEXT : FORC=0TO7 : POKE49 
936+C,l :NEXT:SI=54272 

FJ  60  FORC=SITOSI+24:POKEC,0:N 
EXT:POKESI+24,9*16+15:PO 
KE53236,31 :POKE53239 , 128 

CR  70  M5(0)="B":M$(1)="M":H5(0 
)="B"!H$(1)="H":TS(0)="* 
QppT" . T5 ( 1)="*****" 

CG  80  WSST0)="  TRIANGLE ":WS$(1 
)="  SAWTOOTH ":WS$( 2)=" 
{4  SPACES] PULSE" :WS5( 3)= 
"{2  SPACESlNOISE 
(2  SPACES]" 

SR  90  F5(0)="I00%  ":F$(1)="50% 
{2  SPACES] ":F5(2)="25% 
(2  SPACES}"!F$(3)="12.5% 

MB  100  FORC=50176TO50399:READI5 
: POK  EC , D : NEXT : FORC=  0TO1 
2 :READD:PI(C)=D:NEXT 

AR  110  FORI=0TO15:READPT$(I) :F 
ORC=eT015  jREADDs  POKE496 
64+1 *16+C,D: NEXT :NEXT 

HF  120  FORC=0TO15:READAS(C) iNE 
XT:FORC=0TO16 :READR5(C) 
:NEXT:FORC=0TO7:E{C)=2i 
C:NEXT 

QQ  130  FORC=aT015:SS(C)=STR5(I 
NT (C*6. 66666667) ) :S5(C) 
=S$(C)+"*{2  SPACES] ":NE 
XT 

KJ  140  FORCs0TO15:P$(C)=STR5(I 
NT(C*256/40.95)) :P$(C)= 
P5(C)+"7%  ":NEXT 

KR  150  ML=.99iGOSUB550:GOSUB62 
0 :CW=1 sH=0 :M=0 :PC=0 : AC= 
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0 :DC=0 : SC=15 :RC=4 :GOSUB 

KC 

420 

DATA"SUBMEDIAMT 

GQ    690 

PRINTTAB (23 ) "B"SPC ( 5 ) " T 

710 

[5    SPACES) ",2, 5, 9, 12,0, 

":PRINTTAB(9)"*****>AMP 

XK    160 

RS=4:FC=1 :AF=7 :DF=3 :SF= 

2,5,9,2,5,9,2,5,9,12,0 

"SPC(5)"§X3":PRINTTAB(1 

13:RF=5 :GOSUB7a0:PW=0:P 

MC 

430 

DATA"DIM1NISHED    7TH    ",4 

6)"T" 

C=0 !AP=0 !DP=0 : SP=8 : RP=1 

,7,10,1,4,7,10,1,4,7,10 

RA    700 

RETURN 

5 

,1,4,7,10,1 

CE    710 

PRINT " { HOME ) { DOWN ) " : I FM 

SD    170 

TP=1:FM=1:FP=0:GOSUB830 

DJ 

440 

DATA"SUBT0NICl7    SPACES) 

=1THENCW=0 

:WW=1 :FQ=112 :GG=20:RR=2 
2:GOSUB940:PT=13 

",3,7,10,3,7,10,3,7,10, 
3,7,10,3,7,10,3 

QH    720 

PRINTTAB(2)WSS(CW) sIFCW 
=2THENPRINT"     lUP)"P?(PC 

FP    180 

IN$="TRUMPET":POKE53232 

CE 

450 

DATA "AUGMENTED 

) 

PB    190 

, PT* 16  SGOSUB1050 iGOSUBl 
080 :GOSUB1120:GOSUB11S0 
SYS50176 :GETK?:IFK?<>"" 
THEN1170 

[6    SPACES}", 0,4, 8, 12,0, 
4,8,12,0,4,8,12,0,4,8,1 
2 

SG    730 

PRINTTAB ( 7 ) " { DOWH } [ Fl ] " 
SPC(3)"A    "A5(AC)!PRINTT 
AB(4)MS(M)SPC(9)"D    "R$( 

MG 

460 

DATA "CHROMATIC 

DC) 

PRINTTAB ( 14) "S"S?(SC) :P 

FB    200 

GOTO190 

{6    SPACES} ",0,1, 2, 3, 4, 5 

XP    740 

QF    210 

DATA    162,0,173,27,212,4 
1,7,170,189,16,195,170, 

,6,7,3,9,10,11,12,0,12, 
6 

RINTTAB(4)H$(H)SPC(9)"R 

"R$(RC) 
VK:=2T(CW+4)  :IFM=1THENWC 

173,244,207,202 

MJ 

470 

DATA"WHOLETONE 

PP    750 

JP    220 

DATA   48,6,109,244,207,7 
6,15,196,141,243,2  07,16 

(6    SPACES)", 0,2, 4, 6, 8,1 
0,12,10,8,6,4,2,0,2,10, 

=20 

2,0,173,27,212 

12 

SA    760 

IFH=1THENWC=WC+2 

DP    230 

DATA   41,15,141,239,207, 
173,240,207,109,239,207 
,170,189,0, 194,170 

KD 

480 

DATA"EAST[11    SPACES) ",0 
,2,5,7,9,12,0,2,5,7,9,1 

2,5,2,5,7 

CD    770 

POKES  3243 , WC  s  POKESI  +  10 , 
PC:P0KESI+12,AC*16+DC:P 
OKESI+13,SC*16+RC:RETUR 

QC    240 

DATA    173,27,212,41,7,16 

EE 

490 

DATA "HARMONIC    MINOR    ",5 

N 

8,185,0,195,141,238,20  7 

,7,8,10,12,10,8,7,5,4,1 

JE    780 

POKE214,4!PRINT5PRINTTA 

,138,109,238,207 

,0,1,4,5,8 

B(28)"Q"S?(RS) 

XH    250 

DATA    170,189,0,192,141, 
7,212,189,128,192,141,8 
,212,173,248,207 

CA 

500 

DATA"PURE    MINOR 

(5    SPACES}", 5, 7, 8, 10, 12 

,10,8,7,5,3,1,0,1,3,5,8 

SG    790 

PRINTTAB(28)" {2    DOWN ) "F 
?(FC):PRINTTAB(34)"lUP) 
[F3]" 

GA   260 

DATA   208,12,189,0,193,1 
41,0,212,189,128,193,14 
1,1,212,173,252 

JQ 

510 

DAT A "PHRYGIAN (7    SPACES) 
",5,6,8,10,12,10,8,6,5, 
3,2,0,2,3,5,8 

BJ    800 

PRINTTAB (28)" [DOWN }A    "A 
$(AF)!PRINTTAB(28)"D    "R 
$(DF) 

BG    270 

DATA    207,105,1,141,18,2 
12,173,251,207,105,1,14 

XF 

520 

DATA.002S, .008S, .0165, . 
024S, .0385,  .056S,  .068S, 

FC    810 

PRINTTAB ( 28 ) "S "S$ ( SF ) :P 

RINTTAB(28)"R    "RS(RF) 

1,11,212,173,250 

.08S    , .1S12    SPACES), .25 

CB    820 

POKESI+23 , RS*16+3 :POKE5 

SB    280 

DATA    207,109,249,207,14 

S    , .5S12    SPACES}, .83 

3245,FC:POKESH-19,AF*16 

1,4,212,173,247,207,141 

GE 

530 

DATA1S(3    SPACES), 3 S 

+DF:POKESI+20,SF*16+RF: 

,255,207,173,246,207 

U    SPACES ),5Sl 3    SPACES} 

RETURN 

KC   290 

DATA    141,237,207,172,24 
5,207,173,28,212,174,25 

,8S13    SPACES), .006S, .02 
4S,  .0483,  .0728,  .1143,  .1 

AH    830 

P0KE214,8:PRINT:IFM=1TH 
ENPW=0 

3,207,240,4,74,202 

68S, .2043 

GS    840 

PRINT" (DOWN}     "WS5(PW)SP 

HB    300 

DATA    208,252,141,22,212 
,136,208,238,206,237,20 

PS 

540 

DATA.24S    ,.3Si2    SPACES} 
, .75S    ,1.SS    ,2.4S    ,3S 

C(8)TS(TP) :IFPW=2THENPR 
INT"[UP)"P?(PP) 

7,208,230,206,255,207 

{3    SPACES},9Sl3    SPACES) 

QS    850 

IFFP=1THENPRINT" 

MS    310 

DATA    208,219,173,252,20 
7,141,18,212,173,251,20 
7,141,11,212,173,250 

,15S[2    SPACES}, "24S 

{2    SPACES)","!?    SPACES} 

II 

14    SPACES )FQCY 

{4    SPACES) ":PRINTTAB(4) 

STRS(FM)+"HZ(3    SPACES)" 

XQ    320 

DATA    207,141,4,212,173, 
243,207,141,254,207,17  3 
,242,207,141,237,207 

EK 

550 

FORC=0TO12 :FORI=0TO7 :PI 
=PI(C)*E(I) :HP=INT(Pl/2 
56) !lFHP>255THENHP-255 

EJ    860 

IFFP=1THENZ=FM/. 06097 :P 
H=IIST(Z/256)  :PL=Z-PH*25 
6  SPOKESI ,PL:P0KESI+1 , PH 

PH    330 

DATA    172,241,207,173,28 
,212,174,253,207,240,4, 
74,202,208,252,141 

EM 

560 

POKE49280+I*16+C,HP:POK 
E4915  2+I*16+C,PI-2  56*HP 
AND255sNEXT!SEXT 

JA   870 

IPFP=0THENPRINT" 

{4    SPACES )PARALLEL":PRI 

NTTAB ( 4 ) "ML "STR? ( INT ( ML 

KF    340 

DATA    22,212,136,208,238 

GP 

570 

IFLEN(STR?(ML) ) > 5THENHL 

*100+.5))+"%[2    SPACES)" 

,206,237,207,208,230,20 

=INT(ML*100)/100 

GC   880 

IPrP=lTHENPRI NTTAB ( 15 ) " 

6,254,207,208,219,96 

CP 

580 

FORC=0TO12!PM{C)=PI(C)* 

(UP}A    "A?(AP) !PRINTTAB( 

XG    351 

DATA268,284,301,318,337 

ML:NEXT 

15) "D    "R$(DP) 

,358,379,401,425,451,47 

BX 

590 

FORC=0TO12:FORI=0TO7;PI 

RH    890 

IPrP=0THENPRI NTTAB (15 ) " 

7,506,536 

=PM(C)*E(I) :HP=INT(Pl/2 

{UP}"R${16) :PRINTTAB(15 

BQ    36a 

DATA"MAJOR{10    SPACES]", 

56):IFHP>255THENHP=255 

)RS(16) 

5,7,9,10,12,5,4,2,0,0,1 

XP 

600 

POKE49  536+I*16+C,HP:Z=P 

PF   900 

IFTP=1THENPRINTTAB(9)"C 

2,9,5,9,5,0 

I-2  56*HP:IFZ>25  5THENZ=2 

FS]"SPC(2)"S"S$(SP) :PRI 

XS   370 

DATA"TONICtl0    SPACES}", 

55 

NTTAB(15)"R    "R5(RP) 

5,9,12,0,5,9,12,0,5,9,1 

SB 

610 

POKE49408+I* 16+C , Z : NEXT 

SA    910 

IETP=0THENPRINTTAB (9) " [ 

2,0,5,9,12,0 

! NEXT: RETURN 

F5]"SPC(2)R$(16) sPRINTT 

GR   380 

DATA"SaPERTONIC    7TH    ",7 

CE 

620 

PRINT"(CLR) (2    DOWN}"SPC 

AB(15)R5(16) 

,10,2,5,7,10,2,5,7,10,2 

( 10 ) "CCO AMPC*CCCCESl " 

XQ  920 

WP=2l(PW+4)iPOKE53242,W 

,5,7,10,2,5 

BP 

630 

PRINTTAB(4)"T"SPC(10)"T 

P :POKESI+3 ,PP :POKE53241 

HP   390 

DATA "MEDIANT f 8    SPACES)" 

"SPC(7)"B" 

,TPjPOKE53240,FP 

,9,12,0,3,9,12,0,3,9,12 

MB 

640 

PRINTTABT4)"B"SPC(18)"B 

FQ    930 

POKESI+5 , AP* 16+DP iPOKES 

,0,3,9,12,0,3 

«l                                                               "~                                                   

1+6, SP*16+RP: RETURN 

XP   400 

DATA "SUBDOMINANT 

GB 

650 

PRINTTAB(4)"B"SPC(18)"B 

QC   940 

POKE214,16:PRINT 

{4    SPACES) ",10, 2, 5, 10, 2 

EC    950 

PRINT"[F7]     "WS5(WW)SPC( 

,5,10,2,5,10,2,5,10,2,5 

JQ 

660 

PRINTTAB(4)"B"SPC(ia)" 

1)"FQCY"STR5(FQ)+"HZ 

,10 

EQi**>FILTER**>OUT" 

13    SPACES}" 

H3    410 

DATA  "DOMINANT    7TH 

(3    SPACES] ",0,4,7,10,12 

CR 

670 

PRINTTABC4}"B^SPC(18)"B 
"SPC{5)"f"                              ~ 

RP    960 

IF  WW=  2THE  NP  RI  NTTAB  ( 4 )  " 
[UP}"PS(CP) 

,0,4,7,10,12,0,4,7,10,1 

MQ 

680 

PRINTTAB(4)"B"SPC(18)"B 

RF   970 

SS=2t(WW+4) :POKE53244,S 

2,0 

II                                                               — 

S:POKESI+17,CPt2=PQ/.06 
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097:CH=INT(Z/256) sCL=Z- 

EH 

1290 

IFK$="A"THENAC=AC+1AND 

MQ 

1710    IFK$="A"THENAP=AP+1AND 

c:h*256 

15 

15 

FH    980 

POKESI+14,CL!POKESI+15, 
CH :GY= ( GGAHD127 ) +1 :GL=1 

FX 

1300 

IFK$="D"THENDC=DC+1AND 
15 

MC 

1720    IFK$="D"THENDP=DP+1AND 
15 

:IFGG>127THENGL=128 

KB 

1310 

IFK$="S "THENSC=SC+1AND 

AH 

17  30    IFK$="S"THENSP=SP+1AKD 

GG    990 

3T=(40+(((8+(((4+(((a+( 

15 

15 

( 7*FC ) +2 ) +9 ) *GY) -1 ) +9  )  * 

EC 

1320 

IFKS="R"THENRC=RC+1AND 

GK 

1740    IFK9="R"THENRP-RP+1AND 

3L)-1)+9)*128)-1))/1020 

IS 

15 

000 

EB 

1330 

IFK$="A"THENAC=ABS(AC- 

DD 

1750    IFK$="A"THENAP=ABS(AP- 

FF    1000 

GT=INT(GT*1000)/1000!P 

1) 

1) 

RIbrTTAB(27)"[2    UP)GA"S 

QE 

1340 

IFK$="D"THeNDC=ABS(DC- 

KG 

1760    IFK5="D"THENDP=ABS(DP- 

TR$(GT)+"S(2    SPACESJ" 

1) 

1) 

CE    1010 

RY= ( RRANDl 27 ) +1 :RL=1 ! I 
PRR>127THENRL=128 

CF 

1350 

IFK$="S"THENSC=ABS(SC- 
1) 

BF 

1770    IFK$="S"THENSP=ABS{SP- 
1) 

FG     1020 

RT=(32+(((e+(((4+(((8+ 

((7*FC)+2)+9)*Ry)-l)+9 

FH 

1360 

IFK9="R"THENRC=ABS ( RC- 
1) 

KJ 

1780    IFK5="R"THENRP=AflS(RP- 
1) 

)*RL)-1)+9)*3X)-1))/10 

SJ 

1370 

K$="":GOTO710 

RM 

1790    K5="":GOTO830 

20000 

SB 

1380 

POKE214,22:PRINT:PRINT 

RH 

1800    POKE214,22 :PRIKT:PRINT 

KP    1030 

RT=INT(RT*1000)/1000:P 
RINTTAB ( 27 ) " RE "STR?  (  RT 
)+"S(2    SPACESJ" 

"{EVS]    FILTER 

(4    SPACESjQ    F    A    D   S    R 

117    SPACESJ (OFF j " 

"{RVSj    CONTROL 

(4    SPACES ]W    P    F/Q/C/Y 

{2    SPACES }G /A 

EX    1040 

POKE53  2  38,GL:POKE53  2  37 
,  G Y  .'POKES  3  2  34 ,  RL :  P0KE5 

BG 

1390 

IFK5="Q"THENRS=RS+1AND 
15 

(2    SPACES ]R/E 

(6    SPACES] [OFF]" 

32  33, RY: RETURN 

HP 

1400 

IFKS  =  "Q"THEKRS=ABS  t  RS- 
1) 

JH 

1810    IPK?="W"THENWW=(WW+1)A 

CS    1050 

P0KE2 14, 18  SPRINT: PRINT 

ND3 

"[F2]    PITCH    SET(0-F)"; 

BP 

1410 

IFK?="F"THENFC=FC+1AND 
3 

SG 

1820    IFK$="P"THENCP=CP+1AND 

: I FPT  < 10THENPRINTPT  ;  PT 

15 

${PT) 

AP 

1420 

IFK$  =  "F"THENFC=AflS ( FC- 

XQ 

1830    IFK5="P"THENCP=ABS(CP- 

GD    1060 

IFPT>9THENPRINT"     "CHR? 

1) 

1) 

(PT+55)"     "PTS(PT) 

CG 

1430 

IFK?="A"THENAF=AF+1AND 

PX 

1840    IFK5="F"THENFQ=FQ+1000 

FP    1070 

POKE5  3  2  32  ,  PT  *  16  !  RETU  RN 

15 

RD 

1850    IFK$="Q"THENFQ=FQ+100 

RJ    1080 

POKE214,19:PRINT 

FQ 

1440 

IFK?="D"THEHDF=DF+1AND 

PH 

1860     IFK5="C"THENFQaPQ+10 

AE    1090 

FORC=0TO7 :0C? (C )=RIGHT 

15 

GS 

1870    IFK$="Y"THENFQ=FQ+1 

S(STR5((PEEK(49920+C)) 

FB 

1450 

IFK$="S"THENSF=SF+1AND 

XF 

1880    IFFQ>3995THENFQ=3995 

/16),1) sNEXT 

15 

RJ 

1890    IFK5="F"THENPQ=ABS(FQ- 

AD    1100 

PRINT"ip4]    OCTAVE    (0-7 

GD 

1460 

IFK?  =  "R"THENRF=RF+lAtJD 

1000) 

1      " • •F0RC=aT07 'PRTNTOC 

IS 

KS 

1900    IFK5="Q"THENFQ=ABS(FQ- 

5(C);CHR5(44) ; sNEXTjPR 

CX 

1470 

IFK?="A"THENAF=ABS (AF- 
1) 

100) 

INT" I LEFT]     " 
RETURN 

KB 

1910    IFK?="C"THENFQ=ABS(FQ- 

CE    1110 

MC 

1480 

IFK?="D"THENDF=ABS ( DP- 

1) 

IFK5="S"THENSF=ABS ( SF- 

1) 

IFK5="R"THENRF=ABS{RF- 

10)         - 

SF    1120 

POKE214,20:PRINT:FORC= 
0TO7 :RH5 (C )=RIGHT$ (STR 

ED 

1490 

DH 

1920    IFKS="Y"THENFQ=ABS(FQ- 
1) 

?( (PEEK(49936+C))+1),1 
) sNEXT 

KH 

1500 

PJ 
HQ 

1930    IFK$="G"THENGG=GG+25 
1940    IFK$="A"THENGG=GG+1 

1) 

QM 

1950    IFGG>255THENGG=255 

PG    1130 

PRINT" [F6]    RHYTHM    (1-8 

RP 

1510 

K5=""}GOTO780 

XJ 

1960     IFK$="G"THENGG=ABS(GG- 

)     "; tFORC=0TO7:PRINTRH 

BJ 

1520 

POKE214,22:PRIRT!PRINT 

25) 

$(C);CHR$(44) ; :NEXT:PR 

"(RVSj    MODULATOR   W    P    T 

MR 

1970    IFK$="A"THENGG=ABS(GG- 

INT" I  LEFT}     I  HOME J" 

I    H/L    F/Q/C/Y   A    D    S    R 

1) 

KG    1140 

RETURN 

{ OFF  j " 

BK 

1980    IFK$="R"THENRR=RR+25 

XA   1150 

POKE214,21:PRINT:PRINT 

JQ 

1530 

IFK$  =  "W "THENPW=  ( PW+ 1 ) A 

XH 

1990  "■lFK?  =  "E  "THENRR=RR+1 

"Cf3]  disk  access 

ND3 

KG 

2000    IFRR>255THENRR=255 

{ HOME  J " 

FK 

1540 

IFK?="P"THENPP=PP+1AND 

PF 

2010    IFK?="R"THENRR=ABS(RR- 

FX    1160 

POKE214,0:PRINT:PRINTT 

15 

25) 

AB ( 27 )IN5: RETURN 

BX 

1550 

IFK$="P"THENPP=ABS{PP- 

AS 

2020    IFK5="E"THENRR=ABS(RR- 

KX    1170 

K=ASC(K$+CHR$(0)) :IFK> 

1) 

1) 

=132ANDK<=140THENGOSUB 

MP 

1560 

IFK$="T "THENTP=TP+1AND 

OF 

2030    K?="":GOTO940 

1190 

1 

QD 

2040    POKE214,22:PRINT:PRINT 

GE    1180 

OMJGOSUB12  30,1380,15  20 
,1800,2040,2080,2110,2 

SA 

1570 

IFK5="I "TaENFP=FP+lAND 
1 

" (RVSJ    PITCH    SET 

{2    SPACES ]0    1    2    3     ... 

140:GOTO190 

AH 

1580 

IFK$="P "THENFM=FM+1000 

(SPACE  J  9    A    B    C    D    E    F 

KS    1190 

IFJ=0THEN1210 

RK 

1590 

IFKS="Q"THENFM=FM+100 

(2    SPACES  J (OFF  J" 

RK    1200 

PRINT"! 83 "!ONJGOSUB123 

PD 

1600 

IFK$="C "THENFM=FM+10 

HE 

2050    IFK<58ANDK>47THENPT=K- 

0,1380,1520,1800,2040, 

SP 

1610 

IFK$="Y"THENFH=FH+1 

48 

2080,2110,2140 

HR 

1620 

IFFH>  3995THENFM=3995 

PM 

2060     IFK<71ANDK>64THENPT=K- 

XP    1210 

J=K-132 :PRINT"E4|":RET 

CF 

1630 

IPK?= "F"THENFM=ABS ( FM- 

55 

URN 

1000) 

GJ 

2070    K?="":GOTO1050 

RR    1220 

RETURN 

BK 

1640 

IFK$= " Q"THENFM=AaS ( FM- 

KR 

2080    POKE214,22:PRINT:PRINT 

HJ    1230 

POK  E2 14,22:PRINT:PRINT 

100) 

" (RVSj    OCTAVES 

"(RVS)    SOUND    SOURCE 

BP 

1650 

IFK?= "C "THENFH=ABS ( FM- 

(4    SPACES}0,1,2,3,4,5, 

{5    SPACES )W    P    M    H    A    D 

10) 

6,7(12    SPACES  J (OFF J" 

( SPACE )S    Rl6    SPACESJ 

HD 

1660 

IFK$="Y"THENFM=ABS(FM- 

DJ 

2090    IFK<56ANDK>47THENK=K-4 

{OFF]" 

1) 

9 :CT=CTtlAND7 :POKE4992 

JQ    1240 

IFK?="W"THENCW=(CW+1)A 

RK 

16  70 

IFK$ ="M"THENML=ML+ . 1 :G 

0+CT , K* 16 

ND3 

OSUB570 

JQ 

2100    K$="":GOTO1080 

PP    1250 

IFK5="H "THENH=H+1AND1 

RJ 

1680 

IFK$="L"THENML=ML+.01: 

AC 

2110    POKE214,22:PRINT:PRINT 

EP    1260 

IFKS="M"THENM=H+1AND1 

GOSUH5  70 

"(RVSJ    RHYTHMS 

AM    1270 

IFKS="P"THENPC=PC+1AND 
15 

BD 

1690 

IFK5="M"THENML=ABS (ML- 
.1) IGOSUB570 

(6    SPACESJ1,2,3,4,5,6, 
7,8(10    SPACESJ I  OFF  J " 

JA    1280 

IFK5="P"THENPC=ABS ( PC- 
1) 

DA 

1700 

IFK$="L"THENML=ABS(ML- 
.01) :GOSUB570 

RA 

2120    lFK<5  7ANDK>48THENK=K-4 
9  :YT=YT  +  1AND7 :POKE4993 
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KK 

2130 

AS 

2140 

SC 

2150 

FR 

2160 

BD 

2170 

AA 

2130 

BS 

2190 

AX 

2200 

QS 

2210 

CD 

2220 

EG 

2230 

AH 

2240 

SQ 

2250 

GF 

2260 

GJ 

2270 

ER 

2280 

XQ 

2290 

EJ 

2  300 

FA 

2310 

JP 

2320 

RG 

2330 

BF 

2340 

GK 

2350 

JX 

2360 

SE 

2370 

RQ 

2380 

QP 

2390 

HG 

2400 

KG 

2410 

SH 

2420 

CK 

2430 

RK 

2440 

RM 

2450 

EG 

2460 

6+YT,K 
K5=""!GOTO1120 

poke214,2  2 ; print; print 
"!rvs){2  spaces] disk  a 

CCESsi5    SPACES  Is    L 

[18    SPACES j {off j " 

IFK5="S"THENGOSUB2180 

IFK5  =  "L "THENG0SUB2  300 : 

GOSUB2  440 

K$="":GOTO1150 

POKE214,22:PRINT:PRINT 

"[RVS}    SAVE    FILE    NAME 

121    SPACES] I  OFF) " 

PRINTTAB(18)" (UPj (RVS) 

";  :INPUTIN?:PRINT"{UPj 

I  OFF] ":IH$=LEFT?{IN$,1 

2) 

OPENl 5,8,15 :OPEN2 ,8,2, 

"0:"+IN5+",S,W" 

GOSUB2410:IFEN>1THENPO 

RC=0TO5000 :NEXT:CL0SE2 

:CL0SE15 J  RETURN 

PRINT#2,CW;C$rH;C$;M;C 

?  ;  PC;  C5  ;  AC;  C$  ;DC,-  C?  ;  SC 

r  C5;  RC 

PRIMT#2,RSrC?;FC;C5;AF 

;C?;DF?C$;SF;C5;RF 

MD=HL:PRINTt2,PW;CSrPP 

;  C5  ;  HD  ;  C?  ;  FM;  C5  ,*TP;  C?  ; 

FP;C$r AP;C$;DPf C5jSP;C 

5;RP 

PRINT#2,WW;C5;CP;C$;FQ 
;  C?  r GG ;  C5  r  RR;  C$  ?  PT  :GOS 
UB2410 

FORC=0TO7 :PRINT#2 .PEEK 

(49920+C) 

NEXT :  FORC=0TO7  :P  RINTIf  2 

,PEEK(49936+C) 

NEXT:GOSUB2410 

CL0SE2 : CLOSEl 5 : RETURN 

POKE214,22!PRINT:PRINT 

"(RVS]    I,OAD    FILE    NAME 

S21     SPACES]  I  OFF] " 

PRINTTAB(ia)" [up] (RVS] 

"; :INPUTIN?:PRINT"(UP] 

tOFFj ":IN5=LEFT5( IN? , 1 

2) 

OPEN15,8,15:OPEN2,S,2, 

"0: "+IN$+",S,R" 

GOSUB2410:IFEN>1THENFO 

RC=0TO5000  .•NEXT:CL0SE2 

SCLOSEIS: RETURN 

INPUT#2,CW,H,M,PC,AC,D 

C,SC, RC 

INPUTS  2, RS,FC,AF,DF,SF 

,RF 

INPUT#2,PW, PP,MD,FM,TP 

,FP,AP,DP,SP,RP 

INPUT#2,WW,CP,FQ,GG,RR 

,PT:GOSUB2410 

PORC=0TO7 :INPUT#2,X:P0 

KE(49920+C),X:NEXT 

FORC=0TO7 : INPUT*  2 ,X  : PO 

KE(499  36+C),X :NEXT:GOS 

UB2410 

CLOSE2  sCLOSEXS : RETURN 

INPUT#15,EN,EMS,ET,ES 

IFEN> 1THENPOKE214 , 22 :P 

RINT:PRINTCHRS ( 18) ;EM5 

,-CHR$(32);"l5    SPACES)  " 

RETURN 

IPFP  =  0THENIFMD<>MI,THEN 

ML=MD:GOSUB5  70 

PRINT "E8E{ HOME )":GOSUB 

710 :GOSUB780 JGOSUB830; 

GOSUB940 

GOSUB1050 :GOSUB1080!GO 

SUB1120!PRINT"E4| 

I  HOME  3 " : GOSUBll 50 : RETU 

KN  @ 


Fast  Data 
For  64 


Bob  Kodadek 


This  handy  Commodore  64  routine 
offers  a  speedy  alternative  to  READ- 
ing  large  amounts  of  information  from 
DATA  statements  and  POKEing  it 
into  memory.  By  using  this  automatic 
technique,  you  can  cut  program  ini- 
tialization delays  dramatically.  Use  it 
for  new  programs  or  convert  all  your 
old  ones — either  way,  you'll  be  de- 
lighted at  the  difference  it  makes. 


Have  you  ever  waited  for  a  BASIC 
program  to  READ  loads  of  data 
from  DATA  statements  and  POKE 
it  into  memory?  This  has  always 
been  the  traditional  way  to  store 
data  for  sprite  images  or  custom 
characters,  to  set  up  musical  note 
tables,  and  for  many  other  purposes. 
No  matter  what  the  goal,  there  are 
few  experiences  more  tedious  than 
staring  at  a  PLEASE  WAIT  message 
while  BASIC  executes  hundreds  (or 
even  thousands)  of  READ  and 
POKE  statements.  "Fast  Data  For 
64"  can  perform  such  operations  in 
a  flash,  at  the  speed  of  machine 
language.  Yet,  it  becomes  part  of 
your  BASIC  program  and  is  simply 
called  with  a  GOSUB,  For  example, 
2000  bytes  of  data  can  be  read  and 
POKEd  into  memory  in  only  6/10 


second — about  3000  bytes  per  sec- 
ond. It  takes  BASIC  over  27  full 
seconds  to  do  the  same  job.  Best  of 
all,  this  routine  automatically  ap- 
pends itself  to  any  BASIC  program 
and  can  be  used  even  if  you  don't 
know  anything  about  machine  lan- 
guage. 

A  Speedy  Alternative 

Type  in  and  save  the  program  as  it 
appears  in  the  listing.  When  you 
run  it,  the  program  installs  a  ma- 
chine language  routine  in  memory, 
then  displays  several  instructions 
on  the  screen.  Next,  load  the  BASIC 
program  you  wish  to  convert.  After 
the  load  is  finished,  enter  SYS 
49152  and  press  RETURN.  When 
the  word  LIGHTNING  appears  on 
the  screen,  a  special  routine  has 
been  added  to  your  program.  If  you 
list  the  program,  you  will  notice 
that  it  now  contains  four  extra  lines, 
numbered  63996-63999.  (These 
line  numbers  are  used  because  the 
routine  must  be  located  at  the  very 
end  of  your  program,  and  BASIC 
will  not  allow  line  numbers  higher 
than  63999.) 

Now  locate  the  very  last  DATA 
statement  in  your  program  and  add 
a  comma  followed  by  —1.  For  in- 
stance, say  that  the  last  DATA  line 
in  the  program  looks  like  this: 
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5000  DATA  224,169,255,96 
You'd  change  it  to: 

5000  DATA  224,169,255,96,-1 

The  value  —  1  marks  the  end  of  the 
data.  (Because  —1  is  used  as  a 
marker,  you  cannot  use  this  pro- 
gram for  data  that  contains  the  val- 
ue —1  elsewhere.  This  shouldn't 
pose  any  problems  when  the  pro- 
gram is  used  for  its  intended  pur- 
pose, since  it's  impossible  to  POKE 
a  negative  value  into  a  memory 
location.) 

To  call  the  routine,  add  a  line 
which  sets  the  variable  D  equal  to 
the  beginning  of  the  memory  area 
where  you  want  to  store  the  data 
and  then  executes  GOSUB  63997. 
For  example,  to  move  a  block  of 
data  into  screen  memory,  which 
normally  begins  at  location  1024, 
you  could  use  this  line: 

100  D  =  1024:GOSUB  63997 

The  same  procedure  is  used 
whether  you're  writing  a  new  pro- 
gram or  enhancing  an  existing  one. 
If  you're  updating  an  existing  pro- 
gram, be  sure  to  remove  the  old 
lines  that  previously  did  the  POKE- 
ing.  (Of  course,  you  must  not  re- 
move the  DATA  lines  themselves, 
since  the  ML  routine  still  needs 
something  to  read.)  This  routine 
uses  the  variable  names  D,  D%, 
and  A,  so  you  must  not  use  those 
variables  anywhere  in  your  own 
program.  When  you're  finished 
making  the  changes,  save  the  modi- 
fied version  of  the  program  with  a 
new  filename. 

If  you're  interested  in  how  all 
this  works;  Line  63997  of  the  con- 
version routine  changes  the  vari- 
able D  into  a  low-byte/high-byte 
address  and  sets  up  a  pointer  at 
253-254  ($FD-$FE)  for  the  ma- 
chine language  routine  to  use  in 
storing  the  data.  Line  63998  up- 
dates the  DATA  pointer  at  65  ($41) 
by  reading  and  POKEing  the  first 
byte  of  data  from  BASIC.  It  then 
calculates  the  location  of  the  ma- 
chine language  routine  in  BASIC 
memory  and  calls  it  with  the  resul- 
tant SYS  number.  Line  63999  con- 
tains the  actual  machine  language 
in  a  REM  statement.  This  technique 
works  fine  as  long  as  the  code  is 
relocatable  and  does  not  contain 
any  zero  bytes  or  control  charac- 
ters. Note  that  this  special  line  con- 


tains more  than  the  usual  80 
characters.  Do  not  attempt  to  edit  or 
change  this  line  in  any  way;  the 
BASIC  editor  will  shorten  the  line 
and  scramble  the  machine  language 
it  contains. 

Fast  Data  For  64 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  Issue  of  COMPUTE!. 

XB    10    PRINT "{CLE) [DOWN] PLEASE 
{ SPACE IWAIT": FOR    1=0    TO 
{SPACE] 386: READ    BY: POKE 
{SPACE )49152+I,BY:CK=CK+ 
BY :  NEXT 
RF    20    IF   CK    <>    38541    THEN    PRIN 
T "ERROR    IS    DATA    STATEMEN 
Tl "sEND 
GG    30    DATA    162,0,189,101,193,2 

40,6,32 
XC   40    DATA    210,255,232,208,245 

,169,77,133 
GS    50    DATA    170,169,192,133,171 

,32,51,165 
FQ    60    DATA    160,0,177,170,201,3 

,240,18 
EM    70    DATA    145,34,230,34,208,2 

,230,35 
SD    80    DATA    230,170,208,2,230,1 

71,160,0 
MG   90   DATA   240,232,32,51,165,1 

65,34,24 
QF    100    DATA    105,2,144,2,230,35 

,133,45 
FJ    110    DATA    133,47,133,49,165, 

35,133,46 
GA    120    DATA    133,48,133,50,96,5 

8,8,252 
MR    130    DATA    249,128,58,143,32, 

82,38,80 
SG    140    DATA    32,82,79,85,84,73, 

78,69 
BB    150    DATA   46,70,73,82,83,84, 

32,83 
JP    160    DATA    69,84,32,68,61,84, 

79,32 
QR   170    DATA   68,69,83,84,32,84, 

72,69 
FM    180    DATA    78,32,71,79,33,85, 

66,32 
DC    190    DATA    54,51,57,57,55,0,1 

03,8 
DR   200    DATA   253,249,68,37,178, 

68,173,50 
KA   210    DATA    53,54,58,151,50,53 

,52,44 
QX    220    DATA   68,37,58,151,50,53 

,51,44 
CB    230    DATA   68,171,68,37,172,5 

0,53,54 
PM  240   DATA  58,135,32,65,58,15 

1,32,68 
PB   250   DATA  44,65,0,156,8,254, 

249,158 
RD    260    DATA    32,194,40,52,54,41 

,172,50 
JX    270    DATA   53,54,170,194,40,5 

2,53,41 
RJ    280   DATA   171,32,49,49,56,32 

,58,142 
KK    290    DATA    58,143,32,70,73,78 

,68,32 
CX    300    DATA   49,83,84,32,66,89, 

84,69 
FK    310    DATA    32,79,70,32,77,47, 

76,0 


KG    320    DATA   22,9,255,249,143,3 

4,230,253 
XR   3  30    DATA   208,2,2  30,2  54,160, 

255,200,132 
GP    340    DATA   98,132,99,132,100, 

230,65,208 
MS    350    DATA   02,230,66,177,65,2 

08,014,165 
CP    360    DATA   65,24,105,5,133,65 

,144,44 
MM    370    DATA    230,66,208,40,234, 

201,44,240 
EK    380    DATA    35,201,32,240,224, 

201,45,208 
PK    390   DATA    12,165,65,24,105,2 

,133,65 
RX    400    DATA    144,2,230,66,96,56 

,233,48 
QE   410    DATA    166,99,134,98,166, 

100,134,99 
FP    420    DATA    133,100,176,193,16 

2,100,165,98 
FC    430    DATA   240,9,201,1,240,2, 

162,200 
BF  440  DATA  138,133,98,165,99, 

240,8,162 
XX  450  DATA  9,24,101,99,202,20 

8,250,24 
QR  460  DATA  101,98,24,101,100, 

145,253,144 
JE  470  DATA  141,0,0,0,3,76,73, 

71 
AF  480  DATA  72,84,78,73,78,71, 

33,013 
FJ    490    DATA    0,40,67,41,49,57,5 

6,54 
DC    500    DATA   66,79,66,75,79,68, 

65,68,69,75,0  gt 
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Enhancements 
For  Atari  SpeedCalc 


Here  are  two  enhancements  for  the 
Atari  version  of  COMFUTEl's  popular 
spreadsheed  program  SpeedCalc 
(published  March  2986).  These  new 
features  give  you  greater  control  over 
printed  output  and  allow  you  to  copy 
or  move  blocks  of  cells  without  recal- 
culating the  entire  spreadsheet.  A 
disk  drive  is  required. 


Atari  SpeedCalc  is  an  excellent 
spreadsheet  program,  but  even  a 
good  program  can  be  improved 
here  and  there.  "Enhancements  For 
Atari  SpeedCalc"  makes  several 
modifications  to  SpeedCalc  to  in- 
crease its  power  and  convenience. 
Type  in  the  program  and  save  it  to 
disk  or  tape,  then  run  it. 

When  the  program  begins,  you 
are  prompted  to  insert  a  disk  con- 
taining Atari  SpeedCalc.  Make  sure 
you  have  a  backup  copy  0/ SpeedCalc 
stored  safely  on  another  disk,  in  case 
you  experience  a  disk  error  or  change 
your  mind  about  using  the  enhanced 
version  of  SpeedCalc.  Press  RE- 
TURN when  the  disk  is  in  place. 
The  enhancement  program  auto- 
matically appends  the  necessary 
code  to  the  SpeedCalc  AUTORUN. 
SYS  file.  After  a  few  moments,  the 
computer  prints  DONE.  To  enter 
SpeedCalc,  remove  or  disable 
BASIC,  then  reboot  the  system. 

Selective  Printing 

When  printing  to  a  device  (a  print- 
er, disk  drive,  or  the  screen),  the 
original  SpeedCalc  always  starts 
printing  at  the  upper  left  cell  in  the 
spreadsheet  (cell  AAl),  This  feature 
effectively  limits  the  width  of  any 
printout  to  seven-  or  eight-cell  col- 
umns on  an  80-column  printer.  The 
enhanced  version  of  SpeedCalc  has 
the  ability  to  send  the  contents  of 
any  block  of  cells  to  the  device  you 
select. 


Fred  Chapman 

To  print  out  a  selected  block  of 
cells,  move  the  cursor  to  the  bottom 
right  cell  of  the  block  that  you  want 
to  print,  then  press  CTRL-P  (hold 
down  CTRL,  then  press  P).  When 
prompted  for  the  output  device,  en- 
ter P:  to  select  the  printer,  E:  to 
select  the  screen,  or  D:  followed  by 
a  filename  to  print  to  a  disk  file. 
Now  move  the  cursor  to  the  top  left 
cell  of  the  block  you  wish  to  print, 
then  press  RETURN.  SpeedCalc 
prints  orUy  the  selected  block. 

Improved  Move  And  Copy 

The  new  version  of  SpeedCalc  also 
has  the  ability  to  copy  or  move 
blocks  of  cells  without  recalculat- 
ing. This  permits  you  to  piece  to- 
gether sections  of  the  spreadsheet 

for  printing  without  causing  calcu- 
lation errors.  For  example,  you  may 
want  to  move  a  column  of  titles  just 
to  the  left  of  the  cells  to  be  printed. 
Recalculation  during  copy  and 
move  operations  is  now  consistent 
with  SpeedCalc's  automatic  recalcu- 
lation mode.  If  automatic  recalcula- 
tion is  turned  on,  copy  and  move 
commands  cause  the  entire  spread- 
sheet to  be  recalculated.  If  automat- 
ic recalculation  is  turned  off,  copy 
and  move  simply  move  the  contents 
of  the  selected  block  from  one  place 
to  another  within  the  sheet.  Just  as 
in  the  original  version,  you  can  tog- 
gle automatic  recalculation  mode 
on  or  off  by  pressing  CTRL-R. 

Enhancements  For  Atari 
SpeedCalc 

For  instrudlons  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
ProQfams"  in  ttiis  issue  of  COMPufEL 

(BIB  REM  PRINT  ROUTINE  ENHA 
NCEMENTS  FOR  SPEEDCALC 

BI  20  REM  THIS  PRO0RAM  APPEN 
DS  SEVERAL  PATCHES  TD 
THE  QRIQINAL  SPEEDCALC 

OS  30  TRAP  430 

HI  40    CHECKSUM>0:NBYTES-B0 

JL  50    FOR    BYTE-l     TO    MBYTES:  R 
EAD    ABYTE: CHECKSUM-CHE 


0}  60 


1:1  70 

PII80 


11)90 
It  100 


EO  110 
SC  120 
DF  130 


FP  140 
JO  150 
C6  160 

HC  170 
KK  180 
DD  190 

ei  200 
ct  210 

JF220 

JE230 

Cn  240 

HC  250 

IB  260 
Ha  270 
Bt  2B0 

i;P  2'?0 
CI  300 
K  310 
FP  320 

ItK  330 
CH  340 


DC  350 
KP  360 
PO  370 

HP  380 
PL  390 

NK  400 
HH  410 
ED  420 
U  430 

lED  440 

8D  450 


CKSUM+ABYTEiNEXT  BYTE 
IF  CHECKSUM07369  THEN 

PRINT  "ERROR  IN  DATA 
STATEMENTS" iBOTO  440 
DIM  A«  (1) 

PRINT  " {CLEAR> INSERT  S 
PEEDCALC  DISK  St  PRESS 
RETURN": INPUT  A« 
CLOSE  #1 

OPEN  #1,9,0,  "D:AUTaRU 

N. SYS": REM  APPEND  PAT 

CHES  TO  END  OF  ORIGIN 

AL  FILE 

RESTORE  170 

PRINT  "WRITING.  ..  " 

FOR  BYTE-l  TO  NBYTESi 

READ  ABYTElPUT  #1,ABY 

TElNEXT  BYTE 

CLOSE  #1 

PRINT  "DONE"iEND 

REM  •1F00-»1F2B,  13T 

PATCH 

DATA  0,31 

DATA  43,31 

DATA  162,0,32, 199, SB, 

32 

DATA  BB, 46, 173, 17,66, 

20S 

DATA  1,66,144,240,173 

,  1 

DATA  66,133,205,173,1 

9,66 

DATA  205,2,66,144,227 

,  169 

DATA  65,160,79,162,0, 


32 

DATA  199,58,32,89,33, 

162 

DATA  4,96 

REM 

REM  «1F40-*1F4A,  2ND 

PATCH 

DATA  64,31 

DATA  74,31 

DATA  173,143,62,240,3 

DATA  76,150,51,76,152 

,33 

REM 

REM    •2CDB-«2CE0,REPL 

6  BYTES  IN  SPEEDCALC 

CODE 

DATA  219,44 

DATA  224,44 

DATA  32,0,31,32,199,5 

8 

REM 

REM  *31C9-*31CB,C0PY/ 

MOVE  PATCH 

DATA  201,49 

DATA  203,49 

DATA  76,64,31 

ERR-PEEK ( 195) : PRINT  " 

ERROR-  "I  ERR 

PRINT  "PROGRAM  ABORTE 

D  i " 

CLOSE  *1  &, 
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Commodore  1 28 
Machine  Language 

Part  2 


Jim  Butterfield,  Associate  Editor 


This  second  in  a  series  of  articles  on 
programming  the  128  computer  in  its 
128  mode,  explores  the  built-in  ma- 
chine language  monitor  and  looks  at 
ways  to  link  machine  language  pro- 
grams to  BASIC. 


A  Monitor  At 
Your  Fingertips 

Some  of  the  earlier  Commodore 
products  had  no  built-in  machine 
language  monitor.  To  work  on  ma- 
chine language  on  the  VIC-20  or 
Commodore  64,  for  example,  you 
had  to  load  a  machine  language 
monitor  from  tape  or  disk,  or  rely 
on  a  plug-in  cartridge.  Other  prod- 
ucts had  simple  monitors:  Many 
PET/CBM  models  had  monitors 
which  could  display  and  change 
memory,  save  or  load  programs, 
and  not  much  else.  The  built-in 
monitor  on  the  Commodore  128 
has  many  attractive  features;  the 
best  way  to  learn  them  is  to  try 
them. 

Type  MONITOR  and  press 
RETURN.  You'll  see  the  familiar 
register  display,  with  values  under 
the  titles:  PC  (program  counter),  SR 
(status  register),  AC  (accumulator 
or  A  register),  XR  (X  register),  YR  (Y 
register),  and  SP  (stack  pointer). 
They  are  all  similar  to  what  you 
may  have  met  on  other  machines 
except   that   the   value   under  PC 


looks  a  little  odd.  It  has  five  digits 
instead  of  four.  The  extra  digit  at 
the  beginning  is  the  bank  number, 
and  since  it's  an  F,  we're  in  bank  15. 
We've  noted  previously  that 
bank  isn't  quite  the  right  term.  We 
should  more  properly  say  configu- 
ration 15,  since  each  configuration 
consists  of  a  mixture  of  memory 
elements.  Figures  1  and  2  show  the 
configurations  for  banks  15  (the  de- 
fault) and  0.  You'll  notice  that  for 
addresses  below  $4000,  both  bank 
0  and  bank  15  use  exactly  the  same 


memory.  Thus,  the  contents  of  ad- 
dress $F1000  is  exactly  the  same  as 
the  contents  of  address  $01000.  In 
fact,  it's  the  same  memory.  We'll 
look  for  ourselves  in  a  few  moments. 

Number  Conversion 

You  may  be  quite  comfortable  with 
hexadecimal  numbers.  You  may 
even  be  able  to  do  hex-to-decimal 
conversions  in  your  head  and  amaze 
your  friends.  1  can't,  however,  and  1 
like  the  number  conversion  fea- 
tures that  are  built  into  the  monitor. 
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Only  NRI  teaches  you  to  service  and 
repair  all  computers  as  you  build 
your  own  IB-bit  IBM-compatible 
micro 


Now  that  computers  are  firmly  estab- 
lished in  offices— and  in  homes,  too— the 
demand  for  trained  computer  service 
technicians  surges  forward.  The 
Department  of  Labor  estimates 
that  computer  service  jobs  will  ^^ 

actually  double  in  the  next  ten 
years— a  faster  growth  rate 
than  any  other  occupation. 

Total  systems 
training 

No  computer  stands  alone 
. . .  it's  part  of  a  total 
system.  And  if  you  want 
to  learn  to  service  and 
repair  computers,  you 
have  to  understand  com- 
puter syslems.  Only  NR[  includes  a  power- 
ful computer  system  as  part  of  your  train- 
ing, centered  around  the  IBM-compatible 
Sanyo  550  Series  computer. 

As  part  of  your  training,  you'll  build 
this  highly  rated,  16-bit  IBM  compatible 
computer  system,  assemble 
Sanyo's  "intelligent"  keyboard, 
install  the  power  supply  and 
disk  drive,  interface  the  high- 
resolution  monitor  and  dot 
matrix  printer,  even  expand  the 
memory  from  12  8K  to  256K 
RAM.  It's  confidence-building, 
real-world  experience  that 
includes  training  in  program- 
ming, circuit  design,  and 
peripheral  maintenance. 

No  experience 
necessary—  NRI 
builds  it  in 

Even  if  you've  never  had  any  previous 
training  in  electronics,  you  can  succeed 
with  NRI  training.  You'll  start  with  the 
basics,  then  rapidly  build  on  them  to 
master  such  concepts  as  digitaJ  logic, 
microprocessor  design,  and  computer 
memory.  You'll  build  and  test  advanced 
electronic  circuits  using  the  exclusive 
NRI  Discovery  Lib®,  professional  digital 
multimeter,  and  logic  probe.  Like  your 
computer  system,  they're  all  yours  to 
keep  as  part  of  your  training.  You  even 
get  over  $1,000  worth  of  software, 
including  the  popular  WordStar  and 
CalcStar. 

Send  for  100-page 
free  catalog 

Send  the  coupon  today  for  NRl's  100-page 
full  color  catalog,  with  all  the  facts  about 


NRlis  the  only  home 
study  school  that 
trains  you  on  a  total 
computer  system. 
You'll  mstail  and 
check  keyboard, 
power  supply,  disk 
drive,  printer,  and 
monitor,  following 
step.by>s(ep 
directions. 


computer 
training.  Read 
detailed  descrip- 
tions of  each 
lesson,  each  experiment  you  perform.  See 
each  piece  of  hands-on  equipment  you'll 
work  with  and  keep.  And  check  out  NRI 
training  in  other  high-tech  fields  such  as 


Your  NRI  total 
systems  training  includes 
all  of  this  ■  NRI  uiscoveiv 
Lab"  to  design  and  modify 
circuits  •  Four-function  digital 
multimeter  with  audio  cassette  training  •  Digital  logic 
protje  for  visual  examination  ol  computer  circuits 
*  Sanyo  5&0  Series  compuierwith  "inteiligenl"  l^eytMard 
and  360K  double-density,  double-sided  disk  drive  •  High- 
resolution  monochrome  monitor  •  RAM  expansion 
module  to  give  you  powerful  256K  memory  ■  t20  CPS  ■ 
dot  matrix  printer  with  near-ietler-quality  mode  •  Easy 
Writer  I,  WordStar,  CatcSlar  bundled  software  •  Refer- 
ence  manuals,  scliematics,  and  bite-sized  lessons. 


Robotics,  Data  Communications, 
TV/Audio /Video  Servicing,  and  more. 

Mail  the  coupon  today,  and  see  how 
NRI  can  prepare  you  for  advancement  and 
new  careers  in  the  exciting  world  of 
electronics.  If  the  coupon  has  been  used, 
write  to  NRI  Schools,  3939  Wisconsin  Ave., 
Washington,  DC  20016. 


SEND  COUPON  TODAY  FOR  FREE  NRI  CATALOG! 


McGraw-Hill  Continuing  Education  Center 
3939  Wisconsin  Avenue,  NW,  Washington, 
We'll  give  you  tomorrow. 

Ij/CHECK  DNE  FFEE  CATALOG  ONLY  p 

L_     Cumputer  Electronics  witfi  D 

*rficrccemputers  D 

U  TV/Auoio/Video  Servicing  D 

□  Saiellile  Eleclronics  D 
Q   Robotics  &  Indussrial  Controls  D 

□  Data  Communicalions  D 


DC  20016 


For  Career  courses 
approved  under  Gl  3ill 
n  check  for  details. 


Induslnat  Eleclronics 
Communicaifon  Electronics 
Elaotronic  Design  Technology 
Telephone  Servicing 
Digital  Electronics  Sen/icmg 
Bask:  Electronics 
Bookkeeping  &  Accounting 


D  Appliance  Servicing 
n  Small  Engine  Repair 
n  Air  Conditioning.  Healing.  & 

fletrigeralion 
C  Locksmithing  &  Electronic  Security 
G  BuiWing  Construction 
□  Aultmolive  Servicing 
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We've  talked  about  hexadecimal 
address  $4000  already.  Let's  find  its 
value  in  decimal. 

Type  in  the  value  $4000  on  a 
line  by  itself  and  press  RETURN. 
You'll  see  a  display  of  this  number 
as  it  appears  in  various  number 
bases.  First,  the  hexadecimal  num- 
ber.. The  dollar  sign  means  hex,  of 
course,  so  the  monitor  simply  echoes 
what  you  typed  in:  $4000,  The  next 
line  starts  with  a  plus  sign  (+).  To 
the  128's  monitor,  the  plus  sign 
means  decimal.  So  you  can  see  that 
$4000  equals  decimal  16384.  The 
following  line  starts  with  an  amper- 
sand (&),  which  means  octal,  a  no- 
tation that's  rarely  if  ever  used  with 
Commodore  machines.  (Octal  num- 
bers are  base  8,  so  &40000  is  equal 
to  four  times  eight  raised  to  the 
fourth  power.)  Finally,  the  number 
that  starts  with  a  percent  sign  (%)  is 
the  binary  representation  of  $4000. 
Since  the  computer's  internal  code 
is  always  binary — not  decimal  or 
hexadecimal — it's  sometimes  use- 
ful to  be  able  to  look  at  a  number 
this  way. 

You  may  also  convert  a  deci- 
mal number  to  the  other  bases  by 
typing  it  in,  leading  off  with  a  plus 
sign.  If  you  like,  try  entering 
+  16384  and  watch  the  computer 
figure  out  that  it's  the  same  as 
$4000.  And  if  you  ever  need  to  do 
so,  you  can  convert  from  octal  or 
binary  the  same  way. 

Conversions  are  convenient, 
but  the  monitor  includes  another 
bonus:  Any  number  may  be  entered 
in  any  base,  any  time.  If  you  put  in  a 
number  without  a  prefix,  the  moni- 
tor will  assume  you  mean  it  to  be 
hexadecimal.  But  you  can  slip  in  a 
decimal  number  anywhere  by  pre- 
fixing it  with  the  plus  sign.  We'll  be 
doing  this;  you'U  see  how  handy  it  is. 

Looking  At  Memory 

You  may  display  memory  with  the 
command  M.  If  you  follow  M  with 
two  addresses,  the  monitor  displays 
all  the  values  between  them.  Thus, 
to  display  the  contents  of  addresses 
$1000-$1029,  just  type  M  1000 
1029  and  press  RETURN. 

You'll  get  more  than  you  bar- 
gained for.  Depending  on  whether 
you  are  on  a  40-column  or  80- 
column  screen,  the  monitor  will 
display  8  or  16  memory  locations  at 


a  time.  Each  group  of  locations  is  on 
a  single  line,  with  the  address  of  the 
first  item  on  the  line  showing  at  the 
left.  We  asked  for  42  locations,  but 
we  got  48,  since  the  computer  always 
finishes  the  line  it's  working  on. 

On  the  right,  we  see  the  ASCII 
character  equivalent  of  the  contents 
of  the  memory  locations;  some  lo- 
cations don't  happen  to  have  an 
alphanumeric  equivalent,  in  which 
case  a  period  is  printed.  If  you  dis- 
play the  addresses  suggested 
above,  you'll  see  some  readable  text 
in  this  area.  The  zone  of  memory 
we're  looking  at  holds  the  function 
key  definitions. 

Just  to  confirm  something  that 
was  said  before,  try  using  M  to 
display  memory  locations  FIOOO- 
F1029.  That's  bank  15  instead  of 
bank  0,  but  you'll  see  that  it  is  in 
fact  the  same  memory.  And  you 
might  like  to  try  M  -1-4096  +4137 
which  uses  decimal  addresses  for 
the  same  locations. 

If  you  follow  an  M  command 
with  only  one  address,  you'll  get  a 
fixed  number  of  memory  locations. 
This  can  save  you  typing,  and 
here's  a  tip  for  browsing  through 
large  amounts  of  memory:  If  you 
type  M  alone  with  no  addresses, 
you'll  get  a  continuation  of  the  last 
memory  display. 

Making  Changes  Directly 

The  simplest  way  to  change  memo- 
ry is  to  display  the  area  you're  inter- 
ested in,  then  move  the  cursor  back 
and  type  over  the  values  on  the 
screen.  When  you  press  RETURN, 
the  monitor  enters  all  the  values  for 
that  line.  It's  a  bit  like  screen  editing 
in  BASIC. 

Try  it.  If  you  have  displayed 
memory  as  suggested  above,  you 
may  see  the  word  GRAPHIC  on  the 
right-hand  side  of  the  memory  dis- 
play. Let's  change  the  G  stored  in 
memory  to  a  T  so  that  it  says  TRA- 
FHIC.  The  code  for  a  G  is  $47;  it's 
found  in  the  left-hand  part  of  that 
line.  Move  the  cursor  over  the  47 
and  type  54,  which  is  the  code  for  T. 
Now  press  RETURN  and  the  mem- 
ory change  is  made. 

Remember  that  you  can't 
change  the  right-hand  ASCII  side 
of  the  display.  And  by  the  way,  this 
is  not  the  recommended  way  to 
change  the  function  key  defini- 
tions. It's  easier  (and  better)  to  use 


BASIC'S  KEY  command. 

You  can't  change  locations  in 
read  only  memory  (ROM).  Try  this: 
M  F4200  F4200  will  show  you  part 
of  the  BASIC  ROM.  Move  the  cur- 
sor back,  type  over  a  value,  and 
press  RETURN,  You'll  see  from  the 
display  that  the  original  values 
have  been  restored  and  ROM  has 
not  changed.  Here's  a  note  for  tech- 
nical types:  The  values  from  the 
line  have  "poked  through"  into  the 
RAM  memory  which  lies  beneath 
ROM,  but  the  monitor  shows  only 
the  ROM. 

The  first  character  on  the 
memory  display  line  is  the  greater- 
than  sign  (>).  This  is  in  fact  a  syn- 
onym for  the  change  memory 
command.  On  rare  occasions,  you 
might  like  to  use  this  command 
directly. 

Here's  a  typical  case  where  the 
greater-than  sign  might  be  typed: 
You  want  to  change  a  single  loca- 
tion in  an  I/O  chip.  Using  the  "dis- 
play and  type  over"  method,  you'd 
change  8  or  16  locations  at  a  time. 
Usually,  that's  okay,  but  I/O  chips 
are  delicate  and  you  don't  want  to 
change  other  registers  accidentally. 
As  a  simple  example,  you  might 
like  to  change  the  40-column  bor- 
der color  to  red,  but  you  don't  want 
to  change  anything  else.  You  may 
type  >FD020  2  (remember  that  the 
I/O  chips  are  in  bank  15)  and  the 
border  will  change.  The  monitor 
will  display  a  full  line  of  memory 
locations,  but  you've  changed  only 
one.  By  the  way,  did  you  notice  that 
the  address  you  changed  does  not 
now  contain  the  value  2  you  put  in? 
Funny  things,  1/0  chips.  If  you're 
interested,  you  might  type  $D020 
to  ask  the  computer  what  decimal 
address  in  bank  15  you  have 
changed.  You  might  recognize  the 
answer,  +53280, 

Write  A  Simple  ML  Program 

Let's  write  a  short  program  to  print 
a  line  of  asterisks.  We'U  use  the 
built-in  assembler.  Here  goes: 

A  1500  LDX  #0 

The  A  means  assemble.  The 
address  at  which  we  will  put  this 
instruction  is  1500;  it's  in  hexadeci- 
mal (put  a  dollar  sign  in  front  if  you 
like).  The  instruction  itself  is  LDX 
#0,  load  counter  X  with  a  value  (the 
#  character  means  a  value,  not  an 
address)  of  zero.  Press  RETURN 
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and  you'll  see  that  the  line  has 
changed  to 

A  01500  A2  00  LDX  #$00 

The  machine  code  in  addresses 
1500  and  1501  (bank  0,  but  in  this 
area  that's  the  same  as  bank  15)  is 
hex  A2  00.  These  two  bytes  have 
been  placed  in  memory,  and  the 
monitor  is  ready  for  your  next  line 
of  code;  in  fact,  it  has  typed  part  of 
it  for  you.  Complete  the  next  line  so 
that  it  reads 

A  01502  LDA  #$2A 

This  instruction,  when  the  pro- 
gram runs,  will  load  the  ASCII  code 
for  an  asterisk  (hex  2A)  into  the  A 
register;  that's  the  register  we  use 
for  printing.  Continue  with 

A  01504  JSR  $FFD2 

A  01507  INX 

A  01508  CPX  #  +  20 

The  first  instruction  in  this 
group  prints  a  character,  calling  the 
Kemal  ROM  routine  usually  known 
as  BSOUT  (also  known  in  the  Com- 
modore 64  as  CHROUT).  The  next 
adds  one  to  the  X  register,  which 
we're  using  as  a  counter.  The  last 
instruction  says,  "Compare  the 
counter  with  decimal  20."  Note  the 
plus  sign  for  decimal.  When  you 
press  RETURN,  the  line  changes  to 
A  01508  EO  14  CPX  #$14 

The  value  20  has  been  changed 
to  hexadecimal.  Don't  be  surprised; 
it's  still  the  same  number.  Continue 
entering  with 

A  0150A  BNE  $1504 
A  0150C  LDA  #$0D 
A  OlSOE  JMP  $FFD2 

The  instruction  BNE  $1504 
sends  the  program  back  to  print 
again  if  we  haven't  reached  20 
characters.  The  sequence  LDA 
#$OD;JMP  $FFD2  prints  a  carriage 
return  and  terminates  the  program 
(we  know  that  the  ROM  routine  at 
$FFD2  ends  with  RTS,  so  we  can 
save  a  little  code  by  using  that  RTS 
to  return,  rather  than  ending  with 
the  more  conventional  JSR 
$FFD2:RTS).  After  typing  the  last 
line,  the  computer  prompts  you 
with  A  01511.  Simply  press  RE- 
TURN to  end  the  assembly. 

If  you  like,  you  can  proofread 
your  program  by  entering  the  com- 
mand D  1500  150C.  The  D  com- 
mand is  for  disassemble,  which 
performs  an  activity  more  or  less 
the  reverse  of  an  assembly. 


Starting  Up 

You  can  go  to  this  program  with  a  G 
(go)  command,  which  doesn't  per- 
mit a  return.  Better,  you  can  call  it 
with  a  J  (jump  subroutine)  com- 
mand. But  first,  you  must  think  about 
what  bank  you  are  in. 

If  you  enter  the  command  J 
1500,  you'll  have  a  disaster  on  your 
hands.  Why?  Because  you're  enter- 
ing bank  0  which  contains  no  Ker- 
nal  ROM  and  no  I/O  chips. 
Remember,  the  program  uses  the 
Kemal  ROM  routine  BSOUT  to 
print  each  character.  If  you  JSR  to 
this  routine  when  the  Kemal  ROM 
is  absent,  you'll  never  print  those 
asterisks,  and  your  program  will  al- 
most certainly  fail.  If  you  really 
want  to  call  this  program  from  the 
machine  language  monitor,  invoke 
bank  15  with  J  F1500. 

It's  also  quite  simple  to  call  the 
routine  from  BASIC.  First,  find  the 
starting  address.  Type  $1500  and 
read  the  answer,  decimal  +5376. 

Back  To  BASIC 

Return  to  BASIC  by  giving  the  X 
(exit)  command.  You'll  see  the  fa- 
miliar READY  response  of  BASIC. 
Now  type  NEW  (don't  worry,  your 
machine  language  program  won't 
be  harmed)  and  enter  the  following 
program: 

100  BANK  15 

110  SYS  5376 

120  PRINT  "THIS  WORKS" 

130  SYS  5376 

140  PRINT  "WITHOUT  PROBLEMS" 

150  SYS  5376 

Run  the  program  and  you 
should  see  a  row  of  asterisks.  If 
you've  done  these  exercises,  you 
should  have  a  feeling  for  the  128's 
machine  language  monitor.  It's 
convenient  and  flexible.  In  upcom- 
ing articles  we'll  learn  more  about 
the  monitor,  and  how  to  link  BASIC 
and  machine  language  programs 
together.  © 
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stringing  Atari 
Machine  Language 


Storing  Atari  machine  language  in  a 
string  is  a  time-honored  technique, 
but  how  do  you  get  the  ML  into  the 
string  in  the  first  place?  This  program 
does  the  job  automatically,  creating 
the  necessary  string  and  appending  it 
to  the  BASIC  program  of  your  choice. 
It's  easy  and  very  fast. 


A  good  way  to  enhance  the  per- 
formance of  BASIC  programs  is  to 
use  machine  language  subroutines 
for  tasks  which  either  take  too 
much  time  or  consume  too  much 
memory.  And  one  of  the  most  pop- 
ular places  to  store  short  ML  rou- 
tines is  in  an  Atari  BASIC  string. 
Once  the  ML  code  is  stored  in  a 
string,  BASIC'S  ADR  function  can 
calculate  the  string's  address,  and 
the  USR  function  can  call  it. 

Short  machine  language  rou- 
tines can  be  dealt  with  by  manually 
typing  them  into  strings,  but  this 
can  be  somewhat  tricky,  since  it 
usually  involves  typing  strange- 
looking  control  characters.  Another 
possibility  is  to  use  DATA  state- 
ments which  BASIC  can  READ  un- 
der program  control.  Neither  of 
these  methods  is  attractive  for  large 
routines,  however.  Substantial  ML 
programs  are  usually  written  with 
an  editor/assembler,  which  pro- 
duces a  binary  file  as  output.  The 
problem,  then,  is  how  to  convert 
the  contents  of  a  binary  file  into  a 
string  that  BASIC  can  easily  handle. 


Robert  Martinsons 


The  routine  that  accompanies 
this  article  solves  the  problem  of 
converting  binary  files  into  string 
form.  It  reads  binary  data  from  a 
disk  or  tape  file,  stores  it  in  a  series 
of  strings  through  the  editor's /orcerf 
read  mode,  then  deletes  itself  from 
memory.  Type  in  the  program  lines 
listed  below,  then  LIST  the  routine 
to  disk  or  tape.  Do  not  save  the 
routine:  It  must  be  LlSTed  so  that 
you  can  later  ENTER  it  into  memo- 
ry without  disturbing  a  program 
that's  already  present. 

Stringing  Along 

To  use  the  routine,  first  load  the 
BASIC  program  to  which  you 
would  like  to  add  a  machine  lan- 
guage routine.  Of  course,  the  ML 
routine  is  one  which  normally  re- 
sides in  a  binary  file.  (Note  that  the 
ML  routine  must  be  relocatable, 
since  Atari  BASIC  strings  can  move 
around  in  memory  while  a  program 
runs.)  The  BASIC  program  must 
not  use  any  line  numbers  higher 
than  31499,  since  this  routine  itself 
uses  the  lines  beginning  at  31500. 
Next,  ENTER  the  routine  from  disk. 
This  brings  it  into  memory  without 
altering  the  BASIC  program.  To  ac- 
tivate the  routine,  type  GOTO 
31500  and  press  RETURN. 

The  program  begins  by  re- 
questing the  filename  of  your  bina- 
ry file.  Be  sure  to  include  the  correct 
device  prefix  in  your  response.  For 
instance,  to  read  the  binary  file 
CODE.BIN  from  disk,  enter  D:CO- 


DE.BIN  at  the  prompt.  At  the  next 
prompt,  enter  the  name  of  the 
BASIC  string  which  will  hold  your 
machine  code.  Limit  the  name  to 
eight  characters  or  fewer  (if  you 
enter  too  many  characters,  the  rou- 
tine automatically  truncates  the 
name).  Answer  the  last  prompt 
with  the  line  number  where  you 
want  the  new  ML  strings  to  begin. 
When  answering  this  prompt,  you 
should  take  care  not  to  start  the 
new  lines  at  a  place  which  would 
overwrite  existing  lines,  A  safe  rule 
of  thumb  is  to  allow  ten  line  num- 
bers for  every  256  bytes  of  machine 
language. 

At  this  stage,  the  routine  be- 
gins reading  the  ML  code  into 
memory  and  converting  it  into 
strings.  When  the  process  is  com- 
plete, the  routine  deletes  itself, 
leaving  your  original  program  plus 
the  strings  that  contain  the  machine 
language.  Before  you  can  resave  the 
program,  you  must  manually  add  a 
DlMension  statement  for  the  new 
string  and  add  USR  calls  for  the 
routine  where  needed.  It's  also  a 
good  idea  to  LIST  the  revised  pro- 
gram to  disk,  type  NEW,  and  EN- 
TER it  again,  before  saving  it  a  final 
time.  In  this  way  you  can  clear  out 
all  the  variables  used  by  the  deleted 
routine. 

Tlie  Editor  Does  All 
Ihe  Work 

For  those  who  are  interested,  here 
is  a  short  explanation  of  how  the 
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conversion  routine  works.  All  Atari 
binary  files  have  a  six-byte  header, 
which  contains  the  information 
shown  in  the  table. 


Typical  Binary  File  Header 

Byte   Number  Number  Description 


255 
255 


10 

72 

13 


FF 
FF 

00 

OA 

4C 

OD 


Identification 

code  for 

binary  load  file 

Starting  address 

(LSB) 

(MSB) 

Ending  address 

(LSB) 

(MSB) 


The  conversion  routine  opens 
the  binary  file  and  executes  a  CIO 
(Central  Input/Output)  system  call 
to  bring  in  the  first  six  bytes.  It 
examines  these  and  confirms  that 
you  have  accessed  a  binary  file,  and 
then  computes  the  file  size  by  sub- 
tracting the  starting  address  from 
the  ending  address.  Next,  a  subrou- 
tine which  dimensions  a  temporary 
string  (TEMP$)  is  created  and  exe- 
cuted. For  the  sample  header 
shown,  the  dimension  of  TEMP$ 
will  be  841.  TEMP$  becomes  the 
input  buffer  for  the  next  CIO  call 
which  reads  in  the  remainder  of  the 
binary  file. 

A  loop  beginning  at  line  31610 
now  begins  to  break  the  data  from 
TEMP$  into  segments  short  enough 
to  be  stored  in  a  BASIC  line.  Each 
new  string  will  hold  90  bytes  unless 
we  find  the  ATASCII  equivalent  of 
a  quotation  mark  (34)  or  carriage 
return  (155).  These  values  are  han- 
dled separately  to  avoid  confusing 
the  screen  editor. 

The  POKEs  in  the  subsequent 
lines  switch  the  editor  into  forced 
read  mode,  causing  it  to  enter  the 
new  line  just  as  if  you'd  typed  it 
manually  and  pressed  RETURN. 
Because  the  address  of  TEMPS 
moves  every  time  the  editor  enters 
a  new  line,  its  address  is  recomput- 
ed at  the  beginning  of  each  loop. 
After  the  last  byte  of  data  has  been 
packed  into  the  new  string,  the  con- 
version routine  again  uses  forced 
read  mode  to  delete  itself  from  the 
finished  program. 

Chances  are  that  you've  been 
using  a  more  manual  method  of 
embedding  your  assembly  lan- 
guage routines  into  BASIC,  If  so. 


this  routine  should  become  a  wel- 
come part  of  your  toolkit,  Sit  back 
and  enjoy  watching  the  screen  edi- 
tor do  all  the  work.  A  final  note: 
Every  effort  was  made  to  keep  the 
program  as  compact  as  possible. 
Therefore,  no  REMark  statements 
are  included  and  error  trapping  is 
held  to  a  minimum. 


String  Atari  Machine 
Language 

For  Instructions  on  entenng  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  ttiis  issue  of  compute!. 

BD  31500  CLR  iBRfiPHICS  BlIND 
EX-l:LINENa-0lSTRTL 
INE-45iDIM  BUFFER* ( 
S) , FILNAM«(1S) ,3TRN 
AME»  OJ , A»<1) rCia=A 
DR<"h|BtP>LVtE") 

61131510  ?  "Enter  filaname  -f 
or  binary  load  file 
"1  INPUT    FILNflM* 

M31S20  ?  "Enter  BASIC  Btri 
ng  nam*"! INPUT  STRN 
AME* 

W.31530  ?  "Enter  mtartlng  1 
Ineno  -for  ntrlng":! 
NPUT    LINENO 

PK  31540    A-ADR  (BUFFER*)  :  OPEN 

#1,4,0,FILNAM«: POK 

E  850,7:B»INTtA/236 

);PaKE  B32,A-256»Bi 

POKE  B53,BtP0KE  837 

CD315S0  POKE  B56,6:N-USR<CI 
0)  I  IF  PEEK<A)<>255 
OR  peEK(A+l><>2a5  T 
HEN  CLOSE  #l!?  "ERR 
ORt  Not  a  binary  fi 
le"«STOP 

!fi:31S40  FILSIZ-(PEEKCfl+4) +2 
S6»PEEK<A+5) ) - (PEEK 
(A+2) +256*PEEK (A+3) 
>+i 

P«3157e  SRAPHICg  0:PD3ITIDN 
2,4tPRINT  "31750  D 
IM  TEMP*(" ;FIL3IZ; " 
) I  RETURN" 

ra315B«  PRINT  "CaNT"tP03ITI 
QN  2,0:PaKE  842, 13: 
STOP 

n!3t990  POKE  a42,12:BDSUB  3 
17S0sTEMP*Cl>«="  "sT 
EriP«(FILSIZ)="  ":TE 
MP»(2)=TEI1P»«  ADDRES 
S-ADR (TEMP*> :B-INT ( 
ADDRESS/2S6> 

DC  31600  POKE  852,  ADDRESS-2S 
&«B:POKE  8S3,BiB'IN 
T(FlL9IZ/25d.>  :POKE 
856,FILSIZ-256*Bi PO 
KE  8a7,B:N-USR(CI0) 
iCLDSE  *1 

FB  31610  BRAPHICS  0tADDRESS- 
ADR(TEMP«) : POSIT  ION 
2,4tLtNELln-INDEXt- 
B9 

l)L316Z0  IF  LINELiri>FILSIZ  T 
HEN  LINELln-FILSIZ 

m31630  A«-TEMP*CINDEX, INOE 
X>lIF  A»-[:HR«(34)  0 
R  A»-CHR»(155)  THEN 
31690 

Cft  31640  LINESTRT-INDEXiFOR 
INDEX-LINESTRT  TO  L 


INELIM 

0131630    A«-TEMP*  (INDEX,  INDE 

X):IF    A«-CHR*<34)     0 

R    A«-CHR»(155)     THEN 

LINEND-INDEX-ltBOT 

0  31670 

PC31660  NEXT  I  NDEX  :  L  INEND-L 
INELIM 

UK  31670  PRINT  LINENOj"  "  |  3T 
RNAME*j "•(";LINESTR 
T;  ",  "iLINEND; " )-" jC 
HR«<34) ! 

n 31680  FOR  I-LINE9TRT  TO  L 
INENDi?  "tE8C>"jTEM 
P»(I ,  I)  I  iNEXT  l!  ?  C 
HR«(34):GOTO  31700 

m 31690  ?  LINENO;"  " t 3TRNAM 
E«;  "*  (  ";  INDEX; ",  "|  I 
NDEX I  " ) -CHR* ( " ; A3C  t 
A») ; "> "E INDEX-INDEX 
+  1 

LB31700  LINENO-LINENO+ltPRI 
NT  "CONT"s POSITION 
2,0iPOKE  B42,13i3T0 
P 

81:31710  POKE  842,12iIF  LINE 
LIM<FIL3I2  THEN  316 
10 

6P31720  QRAPHIC3  0iPD3ITION 

2,4lFOR  1-31490  TO 

316S0  STEP  101?  Il 

NEXT  Ii7  "CONT"!P0S 

ITION  2,0:POKE  B42, 

131 3T0P 

FB  31730  POKE  842,  12i  ORAPHIC 
3  0iPa3ITION  2,4 

08  31740  FOR  I-I  TO  317S0  ST 
EP  101?  IiNEXT  II? 
"POKE  842, 12":P0SIT 
ION  2,0iPOK£  842, 13 
:9T0P  ® 
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The  World  Inside  the  Computer 

Fred  D'Ignazio,  Associate  Editor 


Sandbox  Fred  And  His  Media  Maniacs 


Recently,  while  I  was  in  Vancouver, 
Canada,  at  the  World  Congress  on 
Education  and  Technology,  I  was 
asked  to  teach  an  intensive  week- 
long  teacher's  workshop  at  Simon 
Fraser  University,  one  of  Canada's 
leading  universities.  The  first  night 
of  my  course  at  Simon  Fraser,  I 
learned  that  most  of  the  teachers 
taking  my  course  were  novices  in 
electronic  media,  and  that  some  of 
them  had  never  even  touched  a 
computer.  They  saw  me  as  a  media 
expert  and  hoped  the  course  would 
give  them  some  hands-on  expe- 
rience creating  teaching  units  with 
different  media  equipment. 

The  learning  resources  center 
where  I  taught  the  course  has  one 
of  the  richest  collections  of  elec- 
tronic media  that  I  have  ever  seen. 
To  be  frank,  there  were  so  many 
darkrooms,  multitrack  tape  decks, 
audio/video  mixers,  computers, 
projectors,  and  the  like,  that  it  was 
downright  intimidating.  Even  I  was 
scared,  so  how  were  my  fearful 
teachers  to  acquire  the  courage  to 
use  all  that  stuff? 

Electronic  Sandbox 

As  I  stood  in  front  of  my  class  that 
first  night,  I  dug  deep  inside  myself 
for  the  one  thing  that  I  stood  for, 
the  one  thing  that  would  charge  up 
the  class  to  leap  into  the  media  with 
gusto  and  pizzazz.  Then  I  thought 
of  the  magic  word:  sandbox.  To  me  a 
sandbox  is  more  than  four  boards 
and  a  bag  of  sand.  It  is  a  metaphor 
for  play,  storytelling,  world  build- 
ing, and  for  a  child's  personal  jour- 
ney of  exploration  and  discovery. 
And  sand  is  a  metaphor  for  what 
good  media  should  be — rich,  mal- 
leable, and  gritty.  Playing  with  me- 
dia should  be  a  multisensory 
experience.  As  with  sand,  you 
should  smell  it,  taste  it,  and  touch  it. 
It  should  get  in  your  ears,  in  your 
shorts,  and  in  your  hair. 

I  told  my  teachers  that  I  was 
not  a  media  expert  nor  a  teacher. 


but  an  author.  And  what  I  could 
bring  to  the  course  was  not  techni- 
cal expertise,  but  my  imagination, 
my  gift  for  storytelling,  and  my 
playfulness.  I  wasn't  going  to  teach 
them.  I  was  going  to  climb  into  the 
sandbox  with  them  as  "head  kid." 
This  approach  was  not  what  the 
teachers  expected,  but  it  turned  out 
to  be  just  what  they  needed. 

We  began  the  week  with  imagi- 
nation exercises:  We  closed  our 
eyes  and  tried  to  imagine  holding  a 
baby.  We  tried  to  smell  the  baby, 
touch  the  baby,  taste  the  baby,  see 
the  baby,  and  hear  the  baby  coo, 
laugh,  and  cry.  We  explored  how 
media  affects  the  imagination  and 
how  imagination  is  instrumental  in 
creating  good  media.  Although 
many  of  the  students  had  never 
used  a  computer  before,  some  had, 
and  the  veterans  coached  the  be- 
ginners so  they  could  sign  on  to  the 
university's  network.  Beginning 
that  first  night  we  kept  an  electronic 
journal  online  that  eventually 
amounted  to  50  typed  pages.  We 
used  the  journal  to  reflect  on  the 
week's  experiences  and  to  examine 
the  effectiveness  of  the  sandbox  ap- 
proach to  learning  electronic  media. 

The  teachers  eventually  divid- 
ed themselves,  according  to  their 
interests,  into  four  groups: 

•  Mandalas  {video,  animation, 
sound  synthesis,  poetry,  the  arts) 

•  Chodit  (a  cartoon  with  sound 
synthesis) 

•  The  Sandbox  Saga  (desktop 
publishing) 

•  The  Media  Maniacs  (a  documenta- 
ry video  of  our  week  together) 

Although  no  one  had  planned 
it,  all  the  groups  became  intensely 
involved  in  storytelling  and  the 
imagination.  And  the  groups  divided 
neady  into  Mandalas  and  Chodit, 
which  were  an  exercise  of  the 
imagination  looking  outward,  and 
Sandbox  Saga  and  Media  Maniacs, 
which  showed  the  imagination 


looking  inward  at  ourselves.  The 
Media  Maniacs  theme  came  from 
the  Fred's  Media  Maniacs  buttons 
that  one  of  the  teachers  made  for  us 
with  the  help  of  his  mentally  re- 
tarded students. 

Jumping  In  Headfirst 

By  week's  end  I  knew  that  grown- 
up, high-tech  sandboxing  can  really 
work.  Teachers  threw  themselves 
into  their  projects  with  ferocious 
energy  and  creativity.  They  mas- 
tered machines  that  they  had  never 
even  seen  before,  fussed  with  bug- 
gy software  and  malfunctioning 
equipment,  and  moved  on.  Noth- 
ing stopped  them.  And  their  mov- 
ies, stories,  and  cartoons  were 
delightful. 

But  sandboxes  have  their  dark 
side,  too,  and  we  stumbled  into  this 
area  often.  Playing  is  good,  but 
sometimes  there  is  nothing  in  a 
sandbox  to  play  with.  My  metaphor 
of  a  sandbox  as  a  free,  unstructured 
environment  encouraged  the  teach- 
ers to  be  childlike  and  playful,  but 
they  needed  guidance  and  instruc- 
tion to  produce  real  results.  "It's 
exdting  to  watch  people  playing  in 
a  sandbox,"  said  one  of  my  stu- 
dents. "But  it's  no  fun  at  all  if  you 
can't  get  in." 

The  best  part  came  at  week's 
end  when  we  held  a  Sandbox  Me- 
dia Festival  for  a  class  of  computer 
software  teachers.  All  the  teachers' 
products  were  terrific,  but  I  espe- 
cially liked  the  ones  done  by  the 
Media  Maniacs.  One  of  its  produc- 
ers, Morey,  had  gotten  his  three- 
year-old  son,  Cameron,  to  play  the 
part  of  Sandbox  Fred  as  a  child.  In 
the  sequence  Cameron  zigs  and 
zags  around  the  sandbox  in  his  red 
shorts  and  a  white  sun  hat  and  says, 
"I'm  Sandbox  Fred,  and  I  like  to 
play  in  sandboxes.  I'm  Sandbox 
Fred,  and  I  like  computers.  I'm 
Sandbox  Fred,  and  1  have  to  go 
potty  on  the  tree."  ® 
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Sampled  Sounds 


While  the  debate  continues  to  rage 
over  the  destiny  of  the  home  com- 
puter, specialized  programmable 
computers  are  showing  up  in  peo- 
ple's homes  in  record  numbers. 
These  computers  are  the  inexpen- 
sive music  synthesizers  manufac- 
tured by  Casio,  Yamaha,  Seiko, 
Kawai,  and  several  others. 

In  an  earlier  column  1  men- 
tioned that  the  acceptance  of  the 
MIDI  interface  standard  has  result- 
ed in  a  powerful  merging  of  synthe- 
sizer technology  with  personal 
computers.  1  expect  that  within  a 
few  years  every  new  personal  com- 
puter will  have  a  built-in  MIDI 
interface. 

Music  For  Everyone 

Our  love  affair  with  music  is  ex- 
traordinary. At  any  time  of  the  day 
or  night  you  can  turn  on  your  radio 
and  find  that  the  vast  majority  of 
stations  are  playing  music.  Given 
the  popularity  of  recorded  music 
and  concerts,  you  might  conclude 
that  we  are  more  interested  in  hear- 
ing music  than  making  it.  While 
this  is  probably  true  to  some  extent, 
it's  not  as  pervasive  as  it  seems. 
Musical  instruments  sell  briskly. 

Millions  of  people  want  to  en- 
joy music  by  playing  it  themselves. 
Historically  there  have  been  two 
barriers  to  this  creative  urge.  The 
first  is  the  difficulty  of  learning  to 
play  a  conventional  musical  instru- 
ment, and  the  second  is  the  difficul- 
ty of  learning  to  read  and  write 
music  using  traditional  notational 
schemes.  Faced  with  the  need  to 
practice  for  years,  many  would-be 
musicians  give  up  in  frustration. 

From  the  moment  it  is  brought 
home,  the  modem  digital  synthe- 
sizer allows  music  to  be  created. 
Unlike  a  real  trumpet,  whose  first 
sounds  seem  better  suited  for  bur- 
glar alarms  than  for  music,  a  syn- 
thesized trumpet  sounds  sweet  from 
the  very  beginning. 

In  addition  to  providing  high- 


quality  sounds,  the  inexpensive 
modem  synthesizer  provides  addi- 
tional help  to  musicians  in  the  form 
of  sophisticated  rhythm  sections, 
automatic  arpeggios  and  chords, 
and  even  the  ability  to  sequence 
several  tracks  of  music  into  a  com- 
pletely orchestrated  piece.  All  these 
features  can  be  found  at  the  local 
discount  store  for  under  $200. 

New  Instruments 

If  I  felt  for  a  moment  that  synthe- 
sized instmments  were  going  to  re- 
place traditional  instruments,  I 
would  be  concerned.  Instead,  we 
are  seeing  the  synthesizer  emerge 
as  a  class  of  instrument  in  its  own 
right,  taking  its  place  next  to  tradi- 
tional instruments. 

The  most  exdting  aspect  of 
synthesizers  is  that  they  can  pro- 
duce sounds  unavailable  in  tradi- 
tional instruments.  If  you  think 
about  it,  musical  sounds  are  made 
in  one  of  four  ways;  by  hitting 
something  (drums  or  pianos), 
plucking  something  (harpsichords, 
guitars),  blovdng  air  into  or  across 
something  (organs,  horns),  or 
scratching  two  things  together  (vio- 
lins). The  synthesizer  can  emulate 
many  of  these  sounds,  but  more 
importantly,  it  can  be  used  to  create 
sounds  that  can't  be  made  by  tradi- 
tional methods.  This  allows  the  de- 
sign and  creation  of  new  musical 
instruments  by  a  new  breed  of 
craftsperson — one  who  works  with 
programs  rather  than  with  chisels 
and  glue. 

The  SK-1 

If  there  is  a  major  limitation  to 
modem  synthesizers,  it  is  that  new 
sounds  can  be  hard  to  implement. 
For  instance,  the  Yamaha  DX-7, 
one  of  the  standard  instruments  in 
the  field,  is  difficult  to  program 
vkdthout  the  use  of  a  separate  com- 
puter. 

A  recent  entry  into  the  low- 
cost  synthesizer  market  has  made 


this  task  a  lot  easier.  This  instru- 
ment is  Casio's  SK-1  sampling  key- 
board, which  retails  for  well  under 
$200.  The  computer  in  the  instru- 
ment allows  sounds  to  be  captured 
from  external  sources  through  a 
built-in  microphone.  Suppose  you 
would  like  to  make  an  instrument 
that  sounds  like  a  hammer  hitting  a 
pipe.  To  capture  this  sound,  you 
need  only  place  the  SK-1  near  a 
pipe  (an  external  mike  can  be  used), 
press  the  Sample  key  on  the  syn- 
thesizer, and  hit  the  pipe  with  a 
hammer.  The  internal  computer 
samples  the  sound  for  1.4  seconds, 
encodes  the  sound  digitally,  and 
stores  it  in  about  14K  bytes  of  RAM. 
The  sound  you  record  is  assigned  to 
the  A  key.  Once  the  sound  is  en- 
tered, you  can  play  it  at  any  pitch 
by  pressing  the  appropriate  key  on 
the  keyboard.  You  can  also  modify 
the  sound's  envelope  after  it  is 
recorded.- 

Experlmentatlon 

The  most  exciting  aspect  of  this  in- 
strument, and  others  like  it,  is  that  it 
stimulates  creative  experimenta- 
tion. If  it  took  hours  to  create  new 
sounds,  you  might  be  reluctant  to 
try  offbeat  ideas,  simply  because 
they  might  turn  out  to  be  a  waste  of 
time.  With  the  SK-1,  a  new  sound 
can  be  captured  in  a  few  seconds. 
As  a  result,  new  ovwiers  of  the  in- 
strument typically  spend  the  first 
day  or  so  capturing  everything  from 
motorcycle  engines  to  recited  poet- 
ry and  using  these  sounds  to  create 
new  music. 

This  playful  aspect  of  the  syn- 
thesizer is  its  greatest  strength.  The 
computer  in  this  synthesizer  is 
completely  transparent  to  the  user. 
There  is  no  barrier  between  your 
goal — music  making — and  a  satis- 
fying result.  Technology  has  reced- 
ed into  the  background  to  facilitate 
the  creation  of  music,  and  another 
computer  has  quietly  entered  the 
home.  ® 
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That  Other  Computer  Language 


Usually  when  someone  talks  about 
a  "computer  language/'  we  think  of 
programming  languages  like 
BASIC,  Pascal,  Forth,  Logo,  and  so 
on.  These  languages  are  of  interest 
only  to  programmers — if  you  mere- 
ly want  to  use  a  computer,  you 
don't  have  to  leam  anything  about 
these  languages  at  all. 

But  no  matter  how  far  removed 
you  want  to  remain  from  the  inner 
workings  of  the  machine,  there  is 
one  computer  language  you  do 
have  to  leam:  lingo,  all  those  com- 
plicated terms  and  odd  slang  words 
that  only  computer  experts  seem  to 
understand.  You  know  what  I  mean: 
"Oh,  you're  having  RS-232  glitch- 
es? This  is  just  a  kludge,  but  try 
checking  your  DTK  pin  and  chang- 
ing duplexes,  and  if  that  doesn't 
work,  flip  your  floppy  and  warm- 
boot  DOS  with  an  ASCn  batch 
fUe." 

Alien  Conversations 

When  you're  a  struggling  com- 
puter-illiterate, it's  tempting  to  as- 
sume that  this  kind  of  gibberish 
was  invented  merely  to  exclude 
outsiders  from  the  inner  circle.  Ac- 
tually, every  occupation,  hobby, 
and  field  of  interest  has  its  own 
lingo.  Listen  to  yourself  someday 
when  talking  to  a  co-worker  or  a 
fellow  student;  you'll  be  surprised 
how  alien  the  conversation  might 
sound  to  someone  who  is  unini- 
tiated. 

This  was  brought  home  to  me 
recently  when  I  was  helping  a  new 
computer  owner  leam  to  set  up  and 
use  his  system.  Suddenly  he  inter- 
rupted: "Boot  it  up?  Does  that  mean 
the  same  thing  as  turn  it  on?"  I  was 
caught  off-guard.  Once  you  leam 
lingo,  it's  amazing  how  fast  you 
take  it  for  granted. 

To  help  clear  up  any  similar 
confusion  you  may  be  experienc- 
ing, let's  take  a  look  at  some  of  the 
terms  which  make  up  computer 
lingo: 


Back  door  A  secret  method  of 
gaining  entry  to  a  restricted  pro- 
gram by  circumventing  the  pass- 
word protection.  Usually  planted 
by  the  programmer. 

Boot  To  start  up  a  computer 
system,  usually  by  switching  on  the 
power.  Some  computers  equipped 
with  disk  drives  must  be  booted 
voth  a  disk  in  the  drive  (a  boot  disk) 
that  contains  the  disk  operating 
system  (DOS).  Commodore  com- 
puters are  exceptions,  because  DOS 
is  built  into  the  drives  themselves. 
On  the  Amiga  and  early  versions  of 
the  Atari  ST,  the  computer's  operat- 
ing system  itself  must  be  loaded 
from  disk  when  booting. 

Bug  A  malfunction  of  hard- 
ware or  software  that  can  often  be 
replicated.  Usually  the  fault  of  the 
programmer  or  designer. 

Bus  A  connector  on  a  com- 
puter into  which  accessories  and 
cables  are  plugged.  Usually  referred 
to  as  a  system  bus  or  expansion  bus. 

Clone  A  computer  that  is  de- 
signed to  run  the  same  programs 
and  accept  the  same  accessories  as 
another  computer  made  by  a  rival 
manufacturer.  Clones  typically  sell 
for  less  than  the  computer  they're 
imitating.  The  computers  most 
often  cloned  are  the  IBM  PC  and 
Apple  n. 

Cold  start  To  boot  up  a  com- 
puter system  by  switching  on  the 
power. 

Crash  Sudden,  total  failure  of 
a  program  or  computer  system.  The 
program  or  computer  refuses  to  ac- 
knowledge commands,  usually  be- 
cause of  a  bug  or  glitch. 

Daisychain  Two  or  more  ac- 
cessories— such  as  disk  drives,  a 
printer,  or  a  modem — all  hooked 
together  sequentially  to  form  a 
chain.  The  term  can  also  be  used  as 
a  verb  to  describe  the  process  of 
connecting  a  device  to  the  chain. 

Elegant  Perhaps  the  highest 
compliment  that  can  be  paid  to  the 


design  of  a  program  or  piece  of 
computer  hardware,  A  solution  that 
achieves  both  success  and  efficiency. 

Gender  changer  An  adapter 
that  turns  a  male  plug  into  a  female 
jack  or  vice  versa.  Intended  for 
matching  cables  to  various  kinds  of 
computers  and  accessories. 

Glitch  A  momentary  malfunc- 
tion of  hardware  or  software.  Simi- 
lar to  a  bug,  but  more  transitory, 
and  not  necessarily  the  fault  of  the 
designer  or  programmer. 

Hacker  Originally,  someone 
who  became  deeply  absorbed  in 
programming  or  exploring  the  in- 
nards of  the  machine,  even  if  noth- 
ing practical  ever  resulted — 
sometimes  to  the  point  of  obses- 
sion. Recently  this  term  has  taken 
on  a  different  connotation,  due 
largely  to  misuse  in  popular  media. 
In  this  usage,  a  hacker  is  someone 
who  gains  access  to  a  computer  sys- 
tem with  mischievous  intent,  often 
via  a  telephone  link. 

Kludge  (Pronounced  klooj)  A 
sloppy  design  or  an  inelegant  solu- 
tion to  a  problem.  It  works,  but  is 
clumsy  or  inefficient. 

Lockup  The  keyboard  refuses 
to  respond  to  typed  commands. 
Usually  indicates  a  crash. 

Meg  Short  for  megabyte,  a 
measurement  of  computer  memory 
capacity.  One  megabyte  equals 
1024  kilobytes  (1024K).  A  kilobyte 
equals  1024  bytes.  A  byte,  in  tum,  is 
roughly  equivalent  to  one  character 
of  storage.  Thus,  a  meg  of  memory 
can  hold  1,048,576  (1024  X  1024) 
characters. 

Motherboard  The  main  circuit 
board  inside  a  computer. 

Warm  start  To  reboot  a  com- 
puter system  that  has  already  been 
cold-started,  but  has  crashed  or 
needs  to  be  reset  for  some  other 
reason.  Most  computers  have  a  re- 
set button  or  special  key  sequence 
for  this  purpose.  © 


Septemtjer  1966    COMPUTEl     105 


IBM  Personal  Computing 


Donold  B.  Trivette 


Photo  Labeling 


There  should  be  a  law  requiring  all 
photographs  to  be  labeled  with  the 
date  and  content;  otherwise,  how  is 
one  to  remember  when  and  where 
each  snapshot  was  taken?  Unfortu- 
nately, writing  on  the  back  of  a 
photograph  is  about  as  much  fun  as 
writing  on  wax  paper.  Writing  on  a 
word  processor,  on  the  other  hand, 
is  lots  of  fun — so  if  we  could  some- 
how get  our  PC  to  print  on  the 
backs  of  photographs,  we  just 
might  have  something  useful.  The 
solution  is  the  BASIC  program  list- 
ed below  to  print  address  labels, 
which  stick  nicely  to  almost  any 
surface — including  wax  paper  and 
photographs.  In  addition,  the  pro- 
gram incorporates  features  to  print 
multiple  labels  with  the  same  infor- 
mation and  to  date  each  label 
automatically. 

The  program  reads  a  file 
named  LABELS,  which  you  create 
using  a  word  processing  program  or 
text  editor.  The  file  must  be  in 
ASCII  format,  and  the  length  of 
each  line  should  not  exceed  the 
width  of  a  label.  The  program  is 
designed  to  use  3-1/2  X  15/16 
inch,  fanfolded,  pressure-sensitive 
labels  that  may  be  purchased  in 
most  office-supply  stores  for  about 
$7  per  thousand.  This  size  label 
holds  five  34-character  lines  of  text. 

In  order  to  separate  one  label 
from  another,  the  program  looks  for 
a  dash  (-)  in  the  first  column  of  the 
data.  If  there  is  a  number  immedi- 
ately after  the  dash,  the  program 
will  print  that  many  labels  with  the 
text  that  follows.  The  first  line  in 
the  file  must  either  be  a  blank  or 
contain  a  date  that  will  be  append- 
ed automatically  to  each  label.  The 
following  figure  shows  an  example 
of  a  LABELS  file. 


(July   '86} 
-15 
Vacation  at  Yellowetone 

Uncle  Eric 


Family  Reunion 
Miller   Park 
Haybetry,    N.C. 

Joe  and  Phyllis 

Aunt  Mary's  house 

This  file  prints  15  labels  for  the 
photos  taken  at  Yellowstone,  1  la- 
bel for  Uncle  Eric's  photo,  6  to  be 
stuck  on  the  backs  of  the  reunion 
photos,  and  1  each  for  Joe  and 
Phyllis  and  Aunt  Mary's  house. 
The  program  prints  only  five  lines 
to  a  label;  lines  after  the  fifth  are 
discarded,  but  it's  up  to  you  to  for- 
mat the  length  of  each  line  to  stay 
within  the  label  boundary.  The  pro- 
gram includes  a  line-up  routine  to 
make  it  easy  to  get  the  labels  posi- 
tioned in  the  printer. 

Photo  Labeler 

6A  10  REM 

ff  20  REM  Program  to  print  3  1/2 

X  15/16  inch 
NJ  30  REM  labels  -for  the  hacks  o 

f    photographm. 
ID  40    REM  First  line  in  LABELS  f 

lie  may  either  be 
0!  50  REM  blank  or  a  date.  The  - 

sign  signals 
CI  60  REM  the  end  of  one  label  a 

nd  beginning  o-f 
DP  70  REM  a  new  one.  The  -n  opti 

an  may  be  used  to 
BN  80  REM  print  "n"  identical  la 

bels.  Each  label 
DN  90  REM  may  have  a  maKimum  of 

34  characters 
flA  100  REM  by  5  lines. 
PB  110  REM 

SI  120  KEY  DFF:CLS:DIH  S*(20) 
FB  130  X=l: I=1:SW=0:CNT=0 
BD  140  OPEN  "labels"  FOR  INPUT  fl 

S  «1 
LJ  150  LINE  INPUT  #1,D0T* 
BI  160  REM  Ready  prlntar  and  all 

gn  label  a 
DJ  170  REM  Print  a  test  label. 
IP  180  PRINT  "Insert  labels  in  p 

rinter  and  press" 
OD  190  PRINT  "any  key  to  continu 

e.  *  *  " 
KO  200  A*=INKEY«:IF  fl*=""  THEN  2 

00 
on  210  LPRINT  "<<t«*t";SPACE«(6) 
;"Top  Line";SPACE«(6>;"»» 


n   220  FOR  1=1  TO  5:LPRINT:NEXT 

I 
KF  230  PRINT  "Is  label  aligned? 

(Y/N)" 
CO  240  A*=INKEY*:IF  A*=""  THEN  2 

40 
BJ  250  IF  A*="Y"  OR  A*="y"  THEN 

270  ELSE  210 
LL  260  REM  Read  data  from  file 
KB  270  IF  MID«(A*, 1, 1)="-"  THEN 

X=ABS(VAL(A*)) 
IN  280  IF  X=0  THEN  X=l 
BC  290  LINE  INPUT  #1,  B» 
PB  300  IF  MID$(B*, 1, 1)="-"  THEN 

BDSUB  360: A«=B*: I=1:GDTD 

270 
KF  310  S»(I)=BS 
Jt  320  1  =  1  +  1 
IE  330  IF  EDF(l)  THEN  GOSUB  360: 

PRINT:PRINT  CNT; "  Labels 

printed":END 
HI  340  GOTO  290 
m  350  REM  Print  Label (s> 
6C  360  IF  SW=0  THEN  SW=1; RETURN 
LH  370  1  =  1-1 
JO  380  IF  I>5  THEN  1=5 
HI  390  FOR  J  =  l  TO  X 
IP  400  CNT=CNT+1 
OB  410  FDR  K=l  TO  I-l 
J6  420  PRINT  S»(K) 
HP  430  LPRINT  S*(K) 
00  440  NEXT  K 
FH  450  PRINT  S»  f  1 )  5  DAT* 
«P  460  LPRINT  St<I);DAT* 
L6  470  FOR  L=l  TO  5-1 
NE  480  PRINT  SPACE* (4) 
flE  490  LPRINT  SPACE* (4) 
PJ  500  NEXT  L 
DJ  510  PRINT   SPACE* (4) 
PE  520  LPRINT  SPACE* (4) 
OL  530  NEXT  J 
KJ  540  FOR  K=l  TD  I 
FH  550  S«  (KIDSPACE*  (4) 
PL  560  NEXT  K 
M   570  RETURN 
OP  580  REM  End  of  Labels  Program 
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A  Well-Deserved  Feast 


What  restaurant  in  your  home  town 
has  the  best  Szechuan  fare?  How 
about  barbecue,  or  Mexican,  Thai, 
or  Continental  cuisine?  Make  a 
nnental  list  of  those  places,  then 
figuratively  fold  it  up  and  put  it 
aside  for  a  few  moments. 

About  a  year  ago,  while  cruis- 
ing through  the  message  section  of 
a  Chicago-based  bulletin  board,  I 
ran  across  a  message  that  caught 
my  attention.  It  announced  the 
opening  of  a  new  bulletin  board  in 
the  Detroit  area  for  IBM  PC  and 
PC-compatible  computer  owners. 
Dubbed  "The  Business  Board,"  it 
was  located  in  a  nearby  suburb.  I 
was  intrigued.  While  there  were 
dozens  of  Atari-,  Commodore-,  and 
Apple-oriented  BBSs  in  and  around 
the  Motor  City,  there  had  been  a 
distinct  paucity  of  PC-related 
boards.  Prior  to  this  time,  1  had 
been  calling  boards  in  other  cities — 
not  an  economical  practice  when 
you  count  the  long  distance 
charges.  A  local  PC  BBS  might  open 
up  new  fields  of  interest  as  well  as 
relieve  my  pocketbook. 

As  the  modem  dialed  the  new 
board's  number,  I  purposely  held 
down  my  expectations.  Bulletin 
boards  come  and  go.  Most  are  start- 
ed by  well-intentioned  folks  who 
don't  realize  how  much  work  is 
involved  in  maintaining  and  oper- 
ating a  BBS.  The  life  expectancy  of 
an  average  new  board  is  about  30  to 
60  days. 

Two  Deadly  Errors 

Why  such  a  high  mortality  rate? 
There  are  two  common,  often  fatal 
mistakes.  Many  a  would-be  SYSOP 
decides  to  run  a  board  during  hours 
when  his  or  her  computer  is  not 
otherwise  in  use.  These  moonlight 
boards  are  usually  down  more 
often  than  they're  up.  As  the  novel- 
ty wears  thin,  the  neophyte  SYSOP 
soon  decides  that  taking  the  board 
up  and  down  constantly  is  more 
bother  than  it's  worth.  An  even 


more  deadly  mistake  is  attempting 
to  use  the  same  phone  line  for  both 
voice  and  BBS  communications. 

As  I  logged  onto  "The  Business 
Board,"  I  was  pleasantly  surprised 
to  see  a  nice  introductory  bulletin 
with  slick  graphics.  Based  on  a  ded- 
icated Compaq  portable  with  a  30- 
megabyte  hard  drive,  the  BizBoard 
(as  it's  called  by  users)  has  a  down- 
load area  containing  over  1000 
files.  That's  one  of  the  most  com- 
plete and  up-to-date  collections  of 
"freeware"  and  public  domain  soft- 
ware that  I've  run  across  in  years. 

Dedicated  Downloading 

A  quick  electronic  chat  with  SYSOP 
Rick  Brenner  revealed  that  the  Biz- 
Board's  collection  of  files  is  the  re- 
sult of  untold  hours  of  down- 
loading from  a  dozen  or  so  of  the 
nation's  best  bulletin  boards.  Apart 
from  the  phone  charges,  which  are 
not  insignificant,  that  sort  of  activi- 
ty represents  a  very  substantial  in- 
vestment in  time. 

Brenner  started  his  board  to 
facilitate  the  exchange  of  infor- 
mation among  professionals  who 
use  computers  in  business.  In  keep- 
ing with  this  special  focus,  access  to 
the  board  is  limited.  Membership  is 
by  registration  only  and  costs  $25 
per  year.  You  must  also  participate 
actively  in  the  board's  message  traf- 
fic. Those  whose  sole  interest  is  in 
downloading  files  are  politely 
dropped  from  the  rolls  (and  given  a 
refund  of  their  registration  fees). 

While  the  BizBoard's  house 
rules  may  seem  straight-laced  to 
some,  they  have  succeeded  in  fos- 
tering an  unusually  high  degree  of 
computer  literacy  and  esprit  de 
corps  among  BizBoard  members. 
There's  much  humor  to  be  found  in 
the  message  bases  and  recently- 
added  special  interest  forums,  in  ad- 
dition to  useful  technical  informa- 
tion, discussions  of  some  of  the  more 
obtuse  business  applications  of  mi- 
crocomputers, and  accounts  of  mem- 


ber experiences  with  new  products. 

When  Onliners 
Meet  Offline 

In  February  of  this  year,  at  my  sug- 
gestion, the  local  BizBoard  mem- 
bership met  for  some  offline  con- 
ferencing at  a  local  French  bistro. 
Prior  to  the  event,  some  new  mem- 
bers had  voiced  concerns  about 
holding  their  own  in  face-to-face 
communications  with  established 
technical  heavies.  To  add  to  the 
interest,  the  suit-to-sandals  ratio 
among  the  twenty-odd  group  mem- 
bers ran  just  about  fifty /fifty.  How 
did  it  go?  The  dinner  meeting  had 
been  scheduled  to  run  from  6:30  to 
9:00  in  the  evening.  We  were  final- 
ly ushered  out  the  door  at  2:00  the 
next  morning.  Since  that  auspicious 
beginning,  bimonthly  dinner  meet- 
ings have  become  a  BizBoard  tradi- 
tion. 

It's  been  a  year  now  since  the 
BizBoard  began.  Since  then,  my  fa- 
vorite BBS  has  garnered  about  a 
hundred  members,  and  survived 
several  hard  disk  crashes,  power 
failures,  and  even  a  fried  mother- 
board. Most  of  the  credit  is  due  to 
its  hard-working  SYSOP. 

There  are  hundreds  of  Rick 
Brenners  across  the  land  running 
bulletin  board  systems  for  telecom- 
puting enthusiasts.  Their  labor  of 
love  goes  largely  unheralded.  Have 
you  got  a  local  BBS  in  your  area  that 
deserves  recognition?  Unfold  that 
piece  of  paper  you  stashed  away 
mentally  a  few  minutes  ago.  In  my 
book,  September  is  National  SY- 
SOP Month.  Put  off  buying  that 
new  piece  of  software  until  next 
month.  Instead,  treat  your  local  SY- 
SOP to  a  gastronomic  feast  as  rich 
as  the  one  proffered  to  you  via  the 
telephone  lines  day  after  day. 
You'll  both  be  better  off  for  the 
experience.  ® 
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ST  Outlook 


Philip  I.  Nelson,  Assistant  Editor 


Pointer  Potpourri 


Welcome  to  "ST  Outlook."  Begin- 
ning this  month,  I'm  taking  over 
COMPUTEl's  Atari  ST  column  from 
Bill  Wilkinson,  who  had  agreed  to 
do  the  column  on  an  interim  basis. 
By  way  of  an  introduction,  I'm  an 
ST  owner  and  programmer,  as  well 
as  a  writer  and  editor.  In  addition  to 
COMPUTBI's  ST  Programmer's 
Guide,  which  I  coauthored,  I'm  cur- 
rently collaborating  with  COMPUTE! 
programmer  Tim  Victor  on  an  up- 
coming book.  Mapping  the  Atari  ST, 
the  first  volume  of  which  is  sched- 
uled for  an  early  1987  release. 

Pick  Your  Pointer 

Every  ST  owner  is  familiar  with  the 
way  the  mouse  pointer  changes  ap- 
pearance in  response  to  system 
events.  When  you  open  an  applica- 
tion from  the  desktop,  or  load  a 
program  from  BASIC,  the  pointer 
changes  from  an  arrow  to  a  busy 
bee,  and  so  on.  In  many  situations, 
the  ST  manages  the  pointer  shape 
automatically.  But  you  can  also 
change  it  under  program  control  to 
suit  your  own  needs. 

This  month's  program  shows 
how  to  access  the  ST's  eight  built-in 
pointer  shapes  from  BASIC.  It  dis- 
plays all  the  pointers  in  turn, 
prompting  you  to  click  the  mouse 
button  when  you're  ready  to  see  the 
next  one  in  the  series.  In  addition  to 
the  familiar  arrow  and  bee,  you'll 
see  two  hand  shapes,  three  differ- 
ent crosshair  pointers,  and  a  cursor 
shaped  like  a  slender  I-beam. 

It's  not  difficult  to  see  how  al- 
ternate pointer  shapes  can  come  in 
handy.  For  instance,  the  bee  does 
not  automatically  appear  when  you 
read  or  write  to  disk  or  perform 
other  time-consuming  chores  in 
BASIC.  While  you  can  print  the 
conventional  PLEASE  WAIT  mes- 
sage under  those  circumstances,  it's 
also  prudent  (and  it  adds  a  touch  of 
elegance)  to  change  the  pointer  to  a 
bee.  By  reducing  the  user's  tempta- 


tion to  fiddle  with  the  menus  or 
wave  the  pointer  absent-mindedly, 
this  little  icon  increases  the  chances 
that  your  program  will  work  as  in- 
tended. These  cautions  are  doubly 
important  because  BASIC  freezes 
program  execution  whenever  the 
pointer  is  in  motion  and  offers  no 
easy  means  for  disabling  its  own 
menus. 

If  you've  used  1st  Word,  the 
word  processor  supplied  with  the 
ST,  you  may  recognize  the  pointing 
hand,  which  appears  whenever  you 
drag  the  pointer  to  define  a  block  of 
text.  The  I-beam  cursor,  thin 
enough  to  fit  neatly  between  text 
characters,  is  ideally  suited  to  word 
processing  and  similar  applications. 
The  grabbing  hand  pointer  is  often 
used  to  manipulate  objects  such  as 
window  sliders.  And  the  crosshairs 
are  ideal  for  drawing  or  any  activity 
that  requires  precise  positioning. 

Suit  Yourself 

Of  course,  you're  free  to  use  these 
pointers  as  you  please.  The  grab- 
bing hand,  for  instance,  is  suitable 
for  jobs  that  resemble  grasping  or 
pulling,  but  it  works  just  fine  as  an 
eraser,  too.  One  exception  is  our  old 
friend,  the  bee,  whose  significance 
is  already  defined  in  clear  and  nar- 
row terms.  Unless  you're  writing 
software  for  apiarists,  it's  confusing 
(and,  hence,  lousy  GEM  etiquette) 
to  use  the  bee  shape  to  signify  any- 
thing other  than  "busy." 

In  addition  to  the  pointer- 
changing  routine  (labeled 
CHANGE)  the  program  demon- 
strates VDI  routines  which  read  the 
mouse  button,  make  the  pointer  in- 
visible, and  force  it  back  onto  the 
screen.  The  routine  labeled  CLICK 
calls  VDI  routine  124,  which  can 
read  the  pointer's  screen  coordi- 
nates as  well  as  monitor  button  ac- 
tivity. To  read  the  pointer's  .r  and  y 
coordinates,  add  this  line  to  the 
program: 


305 


print  "x  =  " ;peek (ptBOut)  , 
"y=";pBek (ptsout+2! 


The  subroutines  HIDE  and 
SHOW  call  VDI  routines  that  dis- 
able and  enable  the  mouse  pointer, 
respectively.  If  you  don't  hide  the 
pointer  before  you  change  its 
shape,  it  may  misbehave,  deposit- 
ing an  unwanted  ghost  image  in 
some  cases.  Watch  out  for  such  un- 
expected side  effects  whenever  you 
call  a  GEM  routine  from  BASIC.  It's 
fun  to  manipulate  GEM  artifacts 
such  as  the  pointer,  but  with  that 
added  power  comes  an  extra  mea- 
sure of  responsibility. 

The  BASIC  Difference 

Calling  GEM  routines  from  BASIC 
is  significantly  different  from  using 
them  in  a  language  like  C  or  Pascal. 
Some  system  routines  are  down- 
right antagonistic  to  BASIC,  others 
are  a  waste  of  time,  and  others  are 
redundant.  The  first  difference 
arises  because  BASIC  is  itself  a 
GEM  application — a  large,  compli- 
cated program  with  its  own  ideas 
about  what  should  be  happening  at 
any  given  time.  Certain  GEM  rou- 
tines shouldn't  be  used  because 
they  conflict  with  BASIC'S  own 
manipulation  of  the  GEM 
environment. 

The  second  category  of  rou- 
tines includes  those  which  do  a  job 
already  performed  by  BASIC.  For 
instance,  since  BASIC  provides  an 
output  window,  it's  usually  not 
necessary  to  open  a  virtual  work- 
station or  obtain  a  device  handle 
before  you  call  a  system  routine 
that  draws  on  the  screen.  In  the 
third  category  are  routines  that  du- 
plicate an  existing  BASIC  com- 
mand; why  call  a  VDI  routine  to 
draw  a  circle,  when  CIRCLE  is 
more  convenient  and  achieves  ex- 
actly the  same  result? 

There's  a  fourth — fortunately, 
quite  large — category  of  GEM  rou- 
tines: those  which  are  both  useful 
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usable  from  BASIC.  In  the 
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months  to  come,  we'll  look  at  more 
of  them. 
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Programming  the  Tl 


C.  Regena 


Game  Programming 


Many  computer  games  are  transla- 
tions of  games  that  already  exist  in 
some  other  form.  The  challenge  in 
making  such  a  conversion  is  to  offer 
features  that  make  you  want  to  play 
the  game  on  a  computer  instead  of 
the  usual  way  (with  cards,  dice,  a 
board,  or  whatever).  In  the  next  two 
columns,  we'll  construct  a  game 
that  has  been  popular  under  vari- 
ous names,  but  is  usually  called 
"Solitaire." 

The  original  Solitaire  game 
consists  of  several  pegs  arranged  in 
a  pattern  of  holes  on  a  board.  The 
center  hole  is  left  without  a  peg. 
Your  goal  is  to  get  rid  of  pegs  by 
jumping:  One  peg  jumps  over  an- 
other into  an  adjacent  hole,  then 
the  jumped  peg  is  removed.  You 
keep  jumping  and  removing  pegs 
until  you  can  no  longer  jump.  The 
optimum  solution  is  to  end  up  with 
one  peg  in  the  center  hole.  Actually, 
if  you  end  up  with  one  peg  any- 
where, you  are  an  excellent  player, 
and  even  two,  three,  or  four  re- 
maining pegs  would  be  a  good 
score. 

Why  create  this  game  on  a 
computer?  The  main  reason  is  that 
you'll  often  start  to  play  the  game, 
but  find  that  some  pegs  are  missing. 
You  can't  even  set  up  the  board 
without  the  right  number  of  pegs. 
The  computer  will  always  set  up 
the  game  without  losing  pegs,  and 
can   also  check   for   impossible 


moves  and  thus  prevent  cheating. 
In  a  computerized  version,  we  can 
also  include  a  feature  which  would 
allow  backing  up  and  changing  a 
move,  or  even  replaying  several 
moves.  As  a  final  enhancement,  the 
program  can  keep  track  of  every 
move  in  the  game  and  print  them 
out  so  you  could  prove  to  a  friend 
that  you  really  solved  the  puzzle. 

I  usually  start  game  program- 
ming by  designing  the  graphics. 
This  playing  board  consists  of  yel- 
low circles  for  the  pegs  and  black 
circles  for  the  holes.  Lines  1 90-240 
define  graphic  characters  and  col- 
ors, and  lines  250-280  define 
strings  for  printing  the  board.  The 
subroutine  in  lines  620-770  prints 
the  starting  board  on  the  screen. 

The  next  step  is  to  move  the 
pegs.  CALL  KEY  is  used  for  key- 
board input.  Use  the  arrow  keys  to 
move  to  the  peg  you  want  to  move, 
then  press  ENTER.  Now  press  an 
arrow  key  to  show  which  direction 
to  jump.  The  computer  then  needs 
to  check  to  see  whether  you  made  a 

valid  move. 

Since  the  complete  program  is 
too  long  to  include  in  a  single  col- 
umn, I've  spUt  it  into  two  separate 
portions.  This  month's  listing  in- 
cludes enough  of  the  program  to 
draw  the  graphics  and  move  the 
pegs,  so  you  can  play  a  complete 
game.  However,  not  all  of  the  fea- 
tures are  included.  Next  month's 


column  will  explain  more  of  the 
programming  techniques  and  add 
the  sections  that  let  you  back  up  to 
change  a  move,  replay  the  game,  or 
make  a  game  printout. 

If  you  to  prefer  to  save  typing 
time,  you  may  obtain  a  copy  of  the 
complete  program  by  sending  a 
check  for  $3  together  with  a 
stamped,  self-addressed  mailer  and 
a  blank  cassette  or  disk  to: 

C.  Regena 

P.  0.  Box  1502 

Cedar  City,  Utah  84720 

Be  sure  to  specify  the  title,  "Soli- 
taire" for  the  TI-99/4A. 
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1  \  0 
120 
130 

140 

150 

160 
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180 
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200 
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220 
230 

240 
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270 


REM 

DIM 

CALL 

PRIN 

IRE 

PRIN 

JUHP 

PRIN 

AN  E 

PRIN 

JUM 
PRIN 

QNL 
PRIN 
ER  H 
CALL 
CALL 
CIS" 
CALL 
E3C1 
CALL 
CALL 
7E3C 
CALL 
A*=" 
B«=" 
C»=" 


SOLITAIRE 
B ( 12, 12) , Mt (43) 

CLEAR 
T  TAB<5) ; "*t  SOLITA 
«t" 

T  : : "MOVE  A  PEG  BY 
ING  OVER" 

T  : "ANOTHER  PEG  TO 
MPTY  HOLE" 
T  : "THEN  REMOVE  THE 
FED  PEG. " 

T  : "TRY  TO  END  WITH 
Y  ONE" 

T  :  "PEG  IN  THE  CENT 
OLE.  " 

CHAR (96, "0" ) 

CHAR(97, "0000ia3C3 
) 

CHAR(98, "001B3C7E7 
8"  ) 

C0L0R(9, 11,7) 

CHAR ( 105, "001B3C7E 
IB") 

COLDR( 10,2,7) 


!iA*S(" 
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280 

D«  =  "'a"a"a"!iB«S<"a'a'a'" 

B70 

:all  hchar<rdw,cdl,gg) 
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FDR  J=0  TO  12 

BB0 

IF  S<1  THEN  850 

300 

FOR  K=0  TO  12 

890 

IF  K=13  THEN  1100 

310 

READ  e(J,K) 

900 

IF  K069  THEN  950 

320 

NEXT  K 

910 

IF  R-K2  THEN  830 

330 

NEXT  J 
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IF  8(R-l,C)=2  THEN  850 

340 
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SOTO  820 
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IF  K083  THEN  1000 
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IF  C-K2  THEN  BS0 
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DATA  2,2,2,2,2,  1,  1,  1,  2, 
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IF  S(R,C-1)=2  THEN  850 
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9B0 

C-C-1 
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DATA  2,2,2,2,2,1,1,1,2, 
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BDTO  830 

2,2,2,2 
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IF  K068  THEN  1050 

380 

DATA  2,2,2,2,2, 1, 1, 1,2, 

1010 

IF  C+l>10  THEN  850 

2,2,2,2 

1020 

IF  B(R,C+l)-2  THEN  850 
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DATA  2,2, 1,1,1,1,1,1,1, 

1030 

C  =  C+1 

1,1,2,2 

1040 

BOTO  830 

400 

DATA  2,2, 1, 1, 1, 1,0, 1, 1, 
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IF  K098  THEN  850 

1,1.2,2 

1060 

IF  R+l>10  THEN  850 
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R  =  R  +  1 
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DATA  2,2,2,2,2, I , 1, 1 ,2, 

1090 

BOTO  820 
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CALL  SOUND (50, 1400, 2) 

430 

DATA  2,2,2,2,2,  1,  t,  I,  2, 
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IF  GG=105  THEN  850 
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1120 

CALL  KEY(0,K,3) 

440 

DATA  2,2,2,2,2, 1,1,1,2, 

1130 

CALL  HCHAR (ROW, COL, 98) 

2,2,2,2 

1140 

CALL  HCHAR(ROW, COL, 97) 

450 

DATA  2,2,2,2,2,2,2,2,2, 

1150 

IF  S<1  THEN  1120 

2,2,2,2 

1160 

IF  K069  THEN  1240 

460 

DATA  2,2,2,2,2,2,2,2,2, 

1170 

IF  (B(R-2,C)<>0)+ (G (R- 

2,2,2,2 

1,C)<>1)THEN  1530 
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PRINT  PRESS  <ENTER> 

11B0 

B(R-1,C)=0 

,  " 

I  190 

CALL  HCHAR(R0W-2,C0L, 1 

480 

CALL  KEY(0,K,S) 

05) 
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IF  IC013  THEN  400 
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CALL  HCHAR(ROW,COL, 105 

500 

CALL  CLEAR 

) 

3  10 

PRINT  "U3E  THE  ARROW  KE 
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B<R, C)=0 
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R  =  R-2 
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PRINT  ■■<ENTER>  TO  SELEC 
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GOTO  1470 
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1240 

IF  K083  THEN  1320 
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PRINT  "THEN  PRESS  AN  AR 
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ROW  KEY  TO   MOVE. " 
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PRINT  TAB (1 1) ;B« 

) 

740 

PRINT  TAB ( 115 ; A* 

1450 

G  (R,C)»0 

750 

NEXT  T 

1460 

R  =  R  +  2 

760 

CALL  HCHAR(14, 16, 105) 

1470 

3(R,C)-1 

770 

RETURN 

1480 

R0W-R»2 

780 

BDSUB  620 

1490 

C0L"C»2+4 

790 

PRINT  :: 

1500 

CALL  HCHAR(RDW,COL, 97) 

S00 

R  =  6 

1510 

CALL  SOUND<50, 1400,2) 

810 

C  =  4 

1320 

BOTO  840 

820 

RQU=R*2 

1530 

CALL  SaUND(100, 13S, 2) 

830 

C0L«C«2+4 

1540 

BOTO  850                @ 

840 

CALL  GCHAR(RDW,CaL,  GB) 

850 

CALL  KEV<0,K,S) 

860 

CALL  HCHAR(RDW,CDL,  96) 

Save  Your 
Copies  of 
COMPUTE! 

Protect  your  back  issues 
of  COMPUTE!  in  durable 
binders  or  library  cases. 
Each  binder  or  cose  is 
custom-made  in  flag-blue 
binding  with  embossed 
white  lettering.  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  keep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference,  (These  binders 
make  great  gifts,  tool) 


Binders  Cases: 

$8.50  each;  $6.95  each; 

3  for  $24,75;  3  for  $20.00; 

6  for  $48,00  6  for  $36.00 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Mail  to:  Jesse  Jones  Industries 
P.O.  Box  5120 
Dept.  Code  COTE 
Philadelphio,  PA  19141 

Please  send  me COM- 

PUTEI  D  cases  D  binders. 
Enclosed  is  my  check  or  money 

order  for  S .  (U.S.  funds 

only.) 

Name 

Address 

City 

State 


,  Zip . 


Satisfaction  guaranteed  or  money 

refunded. 

Please  allow  4-6  weeks  for  delivery. 
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INSIGHT:  Atari 


Bill  Wilkinson 


Five-Year  Retrospective 


This  month  marks  my  fifth  anniver- 
sary writing  "INSIGHT:  Atari"  for 
COMPUTE!.  In  the  course  of  the  last 
five  years,  I've  covered  a  lot  of  dif- 
ferent topics.  Just  for  fun,  I  decided 
to  look  back  through  the  last  60 
issues  of  COMPUTE!  and  engage  in 
some  healthy  self-criticism — listing 
the  worst  of  Wilkinson  as  well  as 
the  best. 

You  may  or  may  not  agree  with 
my  assessments.  But  the  point  isn't 
simply  to  rate  what's  been  done. 
After  five  years  of  writing  about  the 
same  family  of  machines,  it  can  be 
difficult  to  come  up  with  a  fresh 
topic  every  month.  As  you  read 
these  lists,  let  me  know  about  some 
new  topics  you  want  me  to  cover,  or 
some  old  topics  that  could  stand 
further  explanation  or  a  fresh  treat- 
ment. Not  all  of  you  have  been 
reading  COMPUTE!  for  a  full  five 
years,  after  all.  And  even  long-time 
programmers  can  grow  rusty  in  cer- 
tain areas.  This  column  is  designed 
to  serve  you,  the  readers,  so  please 
provide  some  feedback  in  a  card  or 
letter  addressed  to: 

Bill  Wilkinson 

P.O.  Box  710352 

San  Jose,  CA  95171-0352 

The  Brightest  And  Best 

First,  here's  what  I  consider  the  best 
of  "INSIGHT:  Atari."  Whether  you 
agree  will  depend  on  your  own 
viewpoint  and  needs.  I  have  Usted 
articles  chronologically  within 
broad  categories. 

•  Getting  more  out  of  Atari  BASIC: 
9/81,  10/81,  12/81,  4/82,  5/82, 
2/83,  1/84,  2/84,  3/84,  12/85, 
3/86 

•  Calling  I/O  and  GRAPHICS  rou- 
tines from  assembly  language: 
11/81  through  2/82,  7/82  through 
10/82,  8/85  through  10/85 

•  Assembly  language  techniques, 
with  or  without  Atari  BASIC: 
12/81,  4/82,  10/82,  12/82,  7/83 
through  9/83,  1/84, 12/84, 1/85, 


3/85,  2/86,  4/86 

•  Converting  BASIC  programs  to 
assembly  language:  12/81,  2/82, 
8/82  through  10/82,  5/84 
through  7/84 

•  Atari  BASIC  internals:  1/82 
through  7/82 

•  Bugs  in  Atari  BASIC:  11/81,  5/85, 
6/85 

•  Benchmarks:  9/82,  1/84,  11/84, 
2/85,  3/85 

•  Playing  music  and  sounds  in 
background  while  a  BASIC  pro- 
gram runs:  3/82 

•  User  definable  function  keys:  5/82 

•  Undocumented  graphics  mode: 
10/83  and  11/83 

•  Using  the  extended  memory  of  XL 
machines  (with  pictorial  map): 
12/83 

Not  So  t^emorable 

Now  for  the  less  memorable  col- 
umns. Some  of  my  self-appointed 
projects  have  met  with  less  than 
enthusiastic  response.  Perhaps  the 
worst  of  these  was  "BAIT,"  a  pseu- 
do-BASIC  interpreter  written  in 
Atari  BASIC.  The  program  was 
supposed  to  show  you  how  lan- 
guage interpreters  worked:  It  was 
so  slow  that  you  could  literally 
watch  the  FOR-NEXT  loops  plod 
along.  I  prolonged  the  agony  for 
four  months  (March,  May,  June, 
and  August  1983). 

Then  I  tried  to  rescue  1050  disk 
drive  owners  with  an  enhanced 
version  of  DOS  2.0S,  It  worked,  but 
I  doubt  that  more  than  a  couple  of 
dozen  readers  managed  to  get  it 
installed  properly.  This  series  ap- 
peared May  through  September 
1984.  Less  than  four  months  later, 
we  reworked  DOS  2. OS  for  Atari  to 
produce  DOS  2.5.  More  time  and 
energy  down  the  drain. 

My  April  Fool's  columns  have 
always  received  mixed  reviews.  This 
year,  I  got  distracted  and  actually 
forgot  to  do  a  joke  column.  A  couple 
of  readers  wrote  me  to  compliment 


me  on  my  restraint.  Thanks,  folks. 

Some  of  the  funniest  install- 
ments of  "INSIGHT:  Atari"  were 
unintentionally  humorous,  consist- 
ing of  various  predictions  regarding 
future  Atari  products.  I  could  have 
done  better  with  a  ouija  board. 

In  addition  to  the  obvious 
honkers,  I've  omitted  from  this  list 
several  columns  which  were  rele- 
vant at  the  dme  they  were  written, 
but  have  since  become  outdated. 
One  general  regret  is  that  I  covered 
certain  topics  in  less  depth  than 
now  seems  desirable.  But  that's  a 
difficult  factor  to  measure.  When  I 
invite  you  to  explore  a  subject,  do 
you  ever  sit  down  to  research  it 
further?  If  so,  then  I  have  succeed- 
ed. If  not,  perhaps  the  topic  is  inap- 
propriate, or  the  treatment  needs  to 
be  refined.  Again,  the  more  feed- 
back you  provide,  the  better  I  can 
meet  your  needs. 

Truth  Stranger  Than  Fiction 

Since  I  just  made  fun  of  my  precog- 
nitive  powers,  it's  only  fair  to  men- 
tion that  one  of  my  predictions  is 
actually  coming  true.  In  July  1984, 
Jack  Tramiel  and  company  had  just 
bought  Atari,  I  vnrote  a  column 
(published  in  October  that  same 
year)  containing  several  predictions 
about  what  the  "new"  Atari  would 
produce.  On  some  points,  I  was 
correct:  The  1450  died  quickly,  and 
the  "Atari  MAC"  was  already  un- 
der development  (it  became  what  is 
now  the  ST). 

Though  it  caused  chuckles  at 
the  time,  I  also  stated  that  Atari 
would  continue  to  produce  game 
machines  and  that  they  would  soon 
come  out  with  the  already-designed 
7800.  As  it  happened.  Atari  sold 
over  a  million  2600  game  machines 
in  1985.  And,  at  the  1986  Summer 
Consumer  Electronics  Show,  Atari 
announced  that  the  7800  will  be 
available  this  autumn.  Now,  how 
would  you  like  to  know  what's  in 
store  for  1988?  ® 


September  19S6    COMPUm     111 


AmigaView 


Charles  Brannon,  Program  Editor 


The  Operating  System 


Amiga  has  released  beta-test  copies 
of  vei^idn  1.2  of  the  operating  sys- 
tem. These  experimental  versions 
are  being  distributed  to  software  de- 
velopers, but  Amiga  is  encouraging 
informal  distribution  to  help  them 
get  as  much  testing  as  possible. 
There  will  be  a  few  more  beta  ver- 
sions released,  and  we  should  see 
version  1.2  (which  may  actually  be 
called  version  2,0)  out  by  Christmas. 
However,  it  is  also  reported 
that  Anuga  is  preparing  to  replace 
the  WCS  (Writeable  Control  Store, 
the  area  of  RAM  used  to  store  the 
Kickstart  portion  of  the  operating 
system)  with  EEPROM  (Electrically 
Erasable  Programmable  Read  Only 
Memory),  finally  burning  the  oper- 
ating system  permanently  into 
ROMs  on  the  motherboard.  This 
would  have  to  be  the  final  version, 
since  replacing  ROMs,  if  bugs  are 
later  discovered  in  the  operating 
system,  is  not  a  trivial  task. 

The  End  Of  WCS? 

If  Amiga  replaced  the  WCS  with 
ROM,  we  would  lose  the  advantage 
of  WCS:  the  ability  to  upgrade  to  a 
new  (and  even  completely  differ- 
ent) operating  system  at  any  time. 
On  the  other  hand,  there  would  be 
no  need  for  a  Kickstart  disk,  so 
booting  up  wouldn't  take  as  long. 
256K  of  ROM  is  cheaper  than  256K 
of  RAM,  so  this  may  be  Amiga's 
primary  consideration.  But  does 
Amiga  plan  to  offer  this  ROM  up- 
grade to  current  Amiga  owners,  or 
will  we  just  use  a  Kickstart  contain- 
ing the  equivalent  of  what  gets 
burned  into  ROM? 

Not  everyone  is  clear  on  the 
hierarchy  of  the  Amiga  operating 
system,  popularly  referred  to  as  In- 
tuition. Although  Intuition  is  fun- 
damental, it's  only  part  of  the 
complete  operating  system  (OS). 
There  are  actually  several  layers  in 
the  Amiga  OS,  which  can  be 
grouped  into  four  major  categories; 
Exec,  Graphics,  Intuition,  and  DOS. 


Exec  is  the  core  of  the  operat- 
ing system  and  controls  every  ma- 
chine language  program.  Every  task 
in  the  Amiga  is  part  of  a  task  lisi, 
and  each  task  has  a  priority.  Tasks 
with  the  most  priority  are  allowed 
to  run  first.  Whenever  a  task  "goes 
to  sleep"  while  waiting  for  some- 
thing (keyboard  or  disk  input, 
graphics,  a  response  from  another 
task,  and  so  forth),  the  next  highest 
priority  task  is  allowed  to  run. 
However,  no  task  is  allowed  to  run 
longer  than  64  milliseconds,  the 
unit  of  time  defined  as  a  quantum. 
When  a  task's  quantum  is  up,  it  is 
put  to  sleep  to  allow  other  lower- 
priority  tasks  to  take  their  turn. 
Exec  also  contains  subroutines  for 
allocating  and  deallocating  chunks 
of  memory,  and  low-level  input/ 
output  routines  for  accessing 
Amiga  devices  directly. 

The  Graphics  library  performs 
all  the  screen  drawing  functions 
such  as  line,  rectangle,  filled  rectan- 
gle, and  polygon  drawing  (and  in 
version  1.2  includes  functions  for 
drawing  hollow  or  filled  circles  and 
ovals).  It  contains  powerful  rou- 
tines for  animating  graphic  objects 
(bobs)  and  virtual  sprites  (vsprites), 
as  well  as  providing  direct  access  to 
the  sprite  hardware.  In  addition, 
the  Graphics  library  allows  pro- 
grammers to  modify  the  copper  list, 
which  controls  the  vertical  aspect  of 
the  display.  If  you  count  the  Layers 
library  and  Diskfont  library  as  part 
of  the  Graphics  library,  the  package 
also  manages  overlapping  screen 
areas  and  multiple  text  fonts  and 
styles. 

Remarkable  Flexibility 

Intuition  draws  upon  the  resources 
of  Exec  and  the  Graphics  library  to 
create  the  high-level  metaphors  of 
windows,  screens,  menus,  and  gad- 
gets. Intuition  is  large  and  complex, 
but  it  offers  the  programmer  a  re- 
markable level  of  flexibility.  Ami- 
gaDOS  uses  Intuition  for  its  CLI 


(Command  Line  Interface)  and  con- 
sole windows,  and  Workbench  re- 
lies heavily  on  Intuition  to  support 
its  illusion  of  a  desktop.  Intuition  is 
clearly  the  most  visible  part  of  the 
Amiga  operating  system  (and  prob- 
ably the  most  important),  but  it  can- 
not run  on  its  own, 

AmigaDOS  is  the  topmost  lev- 
el of  the  operating  system,  the  last 
part  written,  and  was  contracted 
from  MetaComCo  in  England. 
Most  Amiga  applications  are  con- 
sidered AmigaDOS  processes,  as 
opposed  to  Exec  tasks.  The  Work- 
bench is  a  layer  above  AmigaDOS, 
an  application  that  creates  a  graphic 
world  which  performs  many  of  the 
same  functions  as  an  AmigaDOS 
CLI  without  the  cumbersome  typ- 
ing required  by  a  command-driven 
DOS.  AmigaDOS  is  much  more 
than  just  a  CLI,  though.  It  includes 
the  tools  programmers  need  to 
read,  write,  and  manage  files  and 
directories,  rather  than  having  to 
resort  to  direct  track  and  sector  ac- 
cess, as  well  as  routines  to  load  and 
execute  programs  as  processes. 

All  these  parts  work  in  harmo- 
ny (well,  to  be  honest,  with  a  few 
sour  notes  here  and  there)  to  or- 
chestrate the  complete  Amiga  sys- 
tem. You  boot  Kickstart,  which 
loads  in  Exec,  Intuition,  and  the 
Graphics  library.  You  then  insert  a 
Workbench  disk,  which  boots  Ami- 
gaDOS and,  finally,  the  Work- 
bench. You  open  Workbench 
windows  via  Intuition  and  Amiga- 
DOS,  and  execute  applications, 
which  have  full  access  to  all  Amiga 
resources,  even  if  many  other  pro- 
grams are  running  at  the  same  time. 
You  can  build  your  own  unique 
working  environment  by  choosing 
which  programs  you'd  like  to  run 
together,  and  customize  other  op- 
tions via  Preferences.  And  when 
you  add  extra  memory  and  peri- 
pherals, you  have  a  symphony  of 
exceeding  range  and  power.         © 
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COMPUTEi's  Guide 
To  Typing  in  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — "The  Automatic  Proofreader." 

Programs  for  the  IBM,  TI-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard- to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A.  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  f<A>^.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}  .  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  f<8  Q>j,  you  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


When  you  see       Type 

{CLEAR}  ESC 

<UP>  ESC 

CDOWN}  ESC 

{LEFT>  ESC 

{RIQHT3  ESC 

CBACK  S>  ESC 

CDELETE>  ESC 

{INSERT}  ESC 

{DEL  LINE>  ESC 

{INS  LINE}  ESC 

{TAB>  ESC 

CCLR  TflB>  ESC 

{SET  TAB}  ESC 

{BELL}  ESC 

{ESCJ  ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  * 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

t 


i 

u 
u 
□ 

a 
a 


CI  ear  Screen 
Cursor  Up 
Cursor  DoNn 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  ctiaracter 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  st^p 
Ring  buzzer 
ESCape  key 


Commodore  PET/CBM/VIC/64/1 28/1 6/+4 


When  "ton 
Read: 

{CLR} 

(HOME) 

(UP) 

{DOWN} 

{LEFT) 

{RIGHT} 

{RVS) 

{OFF} 

{BLK} 

{WHT) 

{RED} 

{CYN! 

{PUR} 

{CRN} 

{BLU} 

{YEL) 


Press: 

SHIFT 

CLR/HOME 

aR/HOME 

SHIFT 

\  CRSR  i 

t  CRSR  i 

See; 


SHIFT 


|— CRSR-»] 
j  —  CRSB  — I 


CTRL 


CTRL 


CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

CTRL 

5 

CTRL 

6 

□ 


m 


m 


CTRL 


CTRL 


ss 


WhenVbu 
flead: 

|4§ 

isi 

{Fl  } 
{  F2  } 
{  F3  ) 

(R  } 

{FS} 
{F6} 
{  F7} 
{  F8  } 

4 


Press: 


COMMODORE 


COMMODORE 


COMMODORE! 


COMMODORE 


COMMODORE 


COMMODORE 


COMMODORE 


See: 

0D 
0iB 
B© 

HH 
SE 

EC 


COMMODORE 


H 


■■ 


fl 

SHIFT 

fl 

a 

SHIFT 

« 

(5 

SMlFr 

6 

17 

SHIFT         n 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row (•-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memorj'.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter, When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Ptus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  saihe  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
tjrping  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  c^ed  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Connmands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename" , A. 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 

100  SRAPHICS  0 

110  FOR  1=1536  TD  1700:REA 

D  AsPOKE  I,ft: CK-CK+AsN 

EXT  I 
120  IF  CKO19072  THEN  ?  "E 

rror  in  DATA  Statement 

s.   Check  Typing. ":END 


tic  Praofr 
tiv*ted. " 

,0, 185,26, 

.7 

, 192, 34,20 

,  169,74 

3,200, 169, 

62 

,228, 157,7 

16 

,  169,93, 14 

,  141 

,  173,4,22S 

5 

, 228, 105,0 

9 

03,96,247, 

93,  6 

,  115,241,  I 

3,238 

,0,32,62,2 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


DATA  0, 189,0 
4,6,232,224, . 
DATA  208,245, 
1,78,6, 169,6, 
DATA  79,6,24, 
, 105, 1 , 141 ,9: 

DATA  i.  17:5.  5. 


138, 125,241, 
lATA  244,241 
J4, 241, 76, 20 
DATA  0,0,0,0, 
46,8,201 
DATA  155,240, 
,240,7,72,24, 
DATA  203, 133, 
0,96,72,  152,', 
DATA  72,  160, (i 
145,88,200,  1<; 
DATA  208,249, 
4,74,74,74,2' 
DATA  161, 160, 
-16S, 203, 41 , i; 
DATA  105, 161 
8, 169,0, 133, ; 


8, 169,0, 133, ; 
DATA  170, 104 
0,96 


,  13,201,32 

,  101 

,203, 104,4 

72, 138 

0, 169, 128, 

92,40 

, 165, 203, 7 

4,  105 

5,24 

,200, 145,8 

203, 104 

,  168,  104,4 


Program  2:  IBM  Proofreader 

By  Charles  Brannon,  Program  Editor 

10  'Automatic  Prtjof reader  Vers 
ion  3.0  (Lines  205,206  adde 
d/190  deleted/470,490  chang 
ed  -from  V2.0) 
100  DIM  L* (500) ,LNUm 500) ; COLO 
R  0,7, 7: KEY  OFF:CLS:MAX=0: 
LNUM (0) =65536 ! 
110  ON  ERROR  GOTO  120: KEY  15, C 
HR»<4)+CHR«(70) :ON  KEY (15) 
SDSUB  640:KEY  (15)  ONiSOT 
0  130 
120  RESUME  130 

130  DEF  SEe»&H40:U«PEEK(«tH4A) 
140  ON  ERROR  BOTO  650: PRINT: PR 

INT"Proof reader  Ready. " 
150  LINE  INPUT  L*:Y=CSRLIN-INT 

(LENCL*)/W)-1; LOCATE  Y, 1 
160  DEF  SEG=0:POKE  1050,30:PDK 
E  1052,34:POKE  1054,0:PDKE 
1055, 79: POKE  1056, 13: POKE 
1057, 28: LINE  INPUT  L$:DEF 
SEO:IF  L«=""  THEN  150 
170  IF  LEFT*(L», 1)="  "  THEN  L» 
=MID»(L*,2>sSaT0  170 
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180  IF  VAL{LEFT*(L*,2))=0  AND 


THEN  L»=M 


200 

205 

20& 
210 

220 


230 

240 
260 

270 


no 

therefore  co 


■):IF   BL=0  T 


MID»(L*,3,1) 

ID«(L»,4) 

IF   ASCtL*>>57    THEN    260 

line  number, 
mmand 

BL=INSTR(L*,  " 

HEN  BL*=L»:BaTO  206  ELSE  B 
L»=LEFT*<L*,BL-1) 
LNUM=VflL(BL«) :TEXTt=MlD*<L 
»,  LEN  <STR* (LNUM) ) +1 ) 
IF  TEXT»=""  THEN  BDSUB  540 
!lF  LNUM=LNUM(P)  THEN  60SU 
B  560: GOTO  150  ELSE  150 
CKSUM=0:FDR  1=1  TO  LEN(L») 
:  CKSUri=  (CKSUM+ftSC  (MID*  (L«, 
1))«1)  AND  235: NEXT: LOCATE 

Y, 1:PRINT  CHR*(6S+CKSUM/1 
6}+CHR*{65+<CKSUM  AND  15)) 
+"  "+L» 

GOSUB  540: IF  LNUM«P)=LNUM 
THEN  L»{P)=TEXT»!QOTO  150 
'replace  line 
GDSUB  SB0:GOTa  150  'insert 

the  line 
TEXT*="":FQR  1=1  TD  LEN(L* 
) :  A=ASC  eMID*  <L», I ) ) : TEXT$= 
TEXT*+CHR*(A+32»(A>96  AND 
A< 123)): NEXT 

DELIMITER=INSTR(TEXT*,"  ") 
;  CaMMAND*=TEXT»: ARB*=" " : IF 

DELIMITER  THEN  CQMMftND«=L 
EFT*  (TEXT*,  DEHMITER-1 )  :  AR 
B«-MID*(TEXT«,DELIMITER+1) 

ELSE  DELIMITER=INSTR(TEXT 
*,CHR»{34)):IF  DELIMITER  T 
HEN  CaMMAND«=LEFT» ( TEX  T» , D 
ELIMlTER-1 ) : AR6«=MID* (TEXT 
♦, DELIMITER) 

IF  COMMAND«<>"LIST"  THEN  4 
10 
OPEN  "scrn:  "  FOR  OUTPUT  AS 

ttl 
IF  ARG«=""  THEN  FIRST=0!P= 
MAX-1:GOTO  340 
DELIMITER=rNSTR(AReS, "-") : 
IF  DELIMITER=0  THEN  LNUM=V 
ftL(ARB*): GOSUB  540:FIRST=P 
:BOTO  340 

Fl RST=VAL (LEFT* ( ARE* , DEL I M 
ITER) ) I LAST=VAL (MID* ( ARG*, 
DELIMITER+D) 

LNUM=FI RST : GOSUB  540 : F I RST 
=P: LNUM=LflST: BOSUB  540:  IF 
P-=0  THEN  P=MAX-1 
FOR  X=FIRST  TO  P:N*=MID»tS 
TR«(LNUM(X)  )  ,2)+"  ■' 
IF  CKFLAG=0  THEN  A*="":60T 

0  370 
CKSUM=0: ft»=N*+L* ( X )  :  FOR  I  = 

1  TO  LEN ( At ) : CKSUM= ( CKSUM+ 
ASC(MID*(A*, I))tl)  AND  255 
:  NEXT: A*=CHR« (65+CKSUM/ 16) 
+CHR»{65+(CKSUM  AND  15))+" 

PRINT  #1,A*+N«+L*(X) 

IF  1NKEY*<>""  THEN  X=P 

NEXT  : CLOSE  #1;CKFLAG=0 

GOTO  130 

IF  COMMAND«="LLIST"  THEN  0 

PEN  "Iptl:"  FDR  OUTPUT  AS 

•IsQOTO  300 

IF  COMMANDt^" CHECK"  THEN  C 

KFLAB=1:Q0TD  290 

IF  COMMANDS<>"SAVE"  THEN  4 
50 

440  GOSUB  600: OPEN  ARE*  FOR  OU 
TPUT  AS  «l:ARG«="":GOTO  30 
0 

450  IF  COMMAND»<>"LOAD"  THEN  4 
70 


280 
290 
300 
310 

320 

330 

340 
350 
360 


370 
380 
390 
400 
410 


420 
430 


460  GOSUB  600: OPEN  ARG*  FOR  IN 

PUT  AS  #1;MAX=0!P=0 
470  WHILE  NOT  EOF(l):LINE  INPU 

T  #1,L*!BL=INSTR(L*,"  ")!B 

L*=LEFT« (L», BL-1 ) : LNUM (P) = 

VAL (BL*) : L* (P) =MID» (L*, LEN 

(STR* (VAL (BL*) ))+!): P-P+1 i 

WEND 
480  MAX =P: CLOSE  «l:BOTO  130 
490  IF  COMMAND*="NEW"  THEN  INP 

UT  "Erase  program  -  Are  yo 

u  Bure";L«!lF  LEFT»(L»,  !)>= 

"y"  OR  LEFT* (L»,  !)■="¥"  THE 

N  MflX=0: LNUM  (0) -=65536!:  GOT 

0  130: ELSE  130 
500  IF  CaMMAND*="BASlC"  THEN  C 

QLQR  7, 0,0: ON  ERROR  GOTO  0 

:CLS:END 
510  IF  COMMAND*<>"FILES"  THEN 

520 
515  IF  ARG*=""  THEN  ARGS="flt " 

ELSE  SEL=l:easUB  600 
517  FILES  AR6«:GOTO  130 
520  PRINT"Syntax  error": GOTO  1 

30 
540  P=0: WHILE  LNUM>LNUM(P)  AND 

P<MAX:P=P+1; WEND : RETURN 
560  MAX=MAX-lsFOR  X=P  TO  MAXiL 

NUM (X) =LNUM (X+l ) : L« (X) =L» ( 

X+Ds  NEXT:  RETURN 
S80   MAX=MAX+1:F0R    X=MAX    TO   P+1 
STEP    -ltLNUM(X)=LNUM(X-l) 

;L*(X)=L*(X-1):NEXT:L«(P)= 

TEXT*: LNUM (P) "LNUM; RETURN 
600  IF  LEFT*(ARB«,1)<>CHR«(34) 
THEN  520  ELSE  ARG*=MID*(A 

RQ*,2) 
610  IF  RIGHT* (ARG«, 1)=CHR»( 34) 
THEN  ARB«=LEFT*tARG»,LEN( 

ARB*)-1) 
620  IF  SEL=0  AND  INSTR(ARG«, ". 

")=«0  THEN  ARB*=ARB»+".BAS" 
630  SEL=0: RETURN 
640  CLOSE  #l:CKFLAG=0:PRINT"St 

opped . " ! RETURN  1 50 
650  PRINT  "Error  #"; ERR: RESUME 
150 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10   VEC=PEEK(772)+256*PEEK(773) 

:LO=43:HI=44 
20    PRINT    "AUTOMATIC    PROOFREADE 

R   FOR    ";iIF   VEC=42364    THEN 

[SPACEjPRINT    "C-64" 
30    IF   VEC=50556    THEN    PRINT    "VI 

C-20" 
40  IF  VEC=3515B  THEN  GRAPHIC  C 

LR:PRINT    "PLUS/4    &    16" 
50    IF    VEC=17165    THEN    LO=45:HI= 

46:GRAPHIC    CLR:PRINT"128" 
60    SA=(PEEK(LO)+256*PEEK(HI))+ 

6:ADR=SA 
70  FOR  J=0  TO  166: READ  BYTsPOK 

E  ADR, BYT : ADR=ADR+1 t  CHK=CHK 

+BYT:KEXT 
80  IF  CHKO20570  THEN  PRINT  "* 
ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS " : END 
90  FOR  J=l  TO  5:READ  RF.LF.HF: 

RS=SA+RF:HB=IST(RS/256)!LB= 

RS-(256*HB) 
100    CHK=CMK+RF+LF+HFsPOKE   SA+L 

F,LB:POKE    SA+HF,Hfl:NEXT 
110    IF   CHKO-22054    THEN    PRINT    " 

*ERROR*    RELOAD    PROGRAM   AND 


I  SPACE) CHECK    FINAL   LINE": EN 

D 
120    POKE   SA+149,PEEK(772) :POKE 

SA+150,PEEK(77  3) 
130    IF  VEC=17165    THEN   POKE    SA+ 

14, 22  SPOKE   SA+18,23sP0KESA+ 

29,224tPOKESA+139, 224 
140    PRINT    CHR$(147);CHR${17);" 

PROOFREADER   ACTIVE": SYS    SA 
150    POKE   HI,PEEK(HI)+l:POKE    (P 

EEK(LO)+256*PEEK(HI) )-l ,0sN 

EW 
160   DATA   120,169,73,141,4,3,16 

9,3,141,5,3 
170   DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180    DATA    0,141,0,255,162,31,18 

1,199,157,227,3 
190    DATA    202,16,248,16,9,19,32, 

210,255,169,18,32 
200    DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210    DATA   200,185,0,2,240,46,20 

1,34,208,8,72 
220   DATA   165,176,73,255,133,17 

6,104,72,201,32,208 
230    DATA   7,165,176,208,3,104,2 

08,226,104,166,180 
240    DATA    24,165,167,121,0,2,13 

3,167,165,168,105 
250    DATA    0,133,168,202,208,239 

,240,202,165,167,69 
260   DATA   168,72,41,15,168,185, 

211,3,32,210,255 
270    DATA   104,74,74,74,74,168,1 

85,211,3,32,210 
280   DATA   255,162,31,189,227,3, 

149,199,202,16,248 
290    DATA   169,146,32,210,255,76 

,86,137,65,66,67 
300    DATA   68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310    DATA    13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Programmer 

10  C  =  0:  FDR  I  =  76S  TO  768  + 

685  READ  A:C  =  C  +  A:  POKE  I 

,A:  NEXT 
20  IF  C  <  >  725B  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHR*  (4) ; "IN»A«300" 
50  POKE  34,0!  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208.60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  ® 
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COMPUTE'S 

Author  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication.  COMPUTE!  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST.  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published: 

1.  The  upper  left  comer  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  corner  of  the  first  page.  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s)  involved.  In  addition,  please 
indicate  the  memory  requirements  of  programs. 

3.  The  underlined  title  of  the  article  should  start 
about  2/3  of  the  way  down  the  first  page. 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  corner  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number.  For  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  leift,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper)  and  typing 
should  be  on  one  side  of  the  paper  only  (upper-  and 
lowercase). 

7.  Sheets  should  be  attached  together  with  a  pa- 
per clip.  Staples  should  not  be  used. 

8.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

9.  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  essetttial  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  also  ap- 
preciate a  copy  of  the  text  file  on  the  tape  or  disk. 
Please  use  high-quality  10  or  30  minute  tapes  with 
the  program  recorded  on  both  sides.  The  tape  or  disk 
should  be  labeled  with  the  author's  name,  the  title  of 
the  article,  and,  if  applicable,  the  BASIC/ROM/DOS 
version(s).  Atari  tapes  should  specify  whether  they  are 
to  be  LOADed  or  ENTERed.  We  prefer  to  receive  Ap- 
ple programs  on  disk  rather  than  tape.  Tapes  are  fairly 
sturdy,  but  disks  need  to  be  enclosed  within  plastic  or 
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cardboard  mailers  (available  at  photography,  station- 
ery, or  computer  supply  stores). 

10.  A  good  general  rule  is  to  spell  out  the  num- 
bers zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  Table  3,  TAB(4),  etc.  Within  ordinary 
text,  however,  the  zero  through  ten  should  appear  as 
words,  not  numbers.  Also,  symbols  and  abbreviations 
should  not  be  used  within  text:  use  "and"  (not  &), 
"reference"  (not  ref.),  "through"  (not  thru). 

11.  For  greater  clarity,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underline  the  word  and  it  will  be  italicized  during 
typesetting. 

12.  Articles  can  be  of  any  length — from  a  single- 
line  routine  to  a  multi-issue  series.  The  average  article 
is  about  four  to  eight  double-spaced,  typed  pages. 

13.  If  you  want  to  include  photographs,  they 
should  be  either  5X7  black  and  white  glossies  or 
color  slides. 

14.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

15.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (Editorial  De- 
partment, COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403)  it  will  take  from  four  to  eight 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  manuscripts 
are  returned  to  authors  who  enclose  a  self-addressed, 
stamped  envelope. 

16.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing,  "Revision"  on  the 
envelope  and  the  article. 

17.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers,  contact  the  Review  Coordinator  for 
details. 


CAPUTE! 


64  Uncruncher 

The  first  line  was  omitted  from  the 
MLX- format   listing   for   this   pro- 
gram in  the  August  issue  (p.  100).  It 
should  read  as  follows: 
COOO;AD  20  DO  8D  OA  C6  AS  73  7D 

Screen  Machine  II 

When  entering  the  program  that 
accompanies  Part  1  of  this  article  in 
the  July  issue  (p.  86),  you'll  encoun- 
ter many  lines  for  which  the  pub- 
lished "Automatic  Proofreader" 
checksum  will  not  match  the  one 
returned  by  the  Proofreader  even 
when  the  line  is  entered  exactly  as 
listed.  The  program  in  the  July  list- 
ing was  generated  by  processing 
the  commented  listing  from  Part  2 
of  the  article  in  the  August  issue 
(Program  1,  p.  95)  with  the  "RE- 
Mover"  program  in  that  issue  (Pro- 
gram 2,  p.  99).  REMover  removes 
all  comments,  but  in  the  case  of 
comments  at  the  end  of  program 
lines  it  leaves  the  space  between 
the  last  BASIC  statement  and  the 
apostrophe  (').  This  space  affects 
the  checksum  calculated  by  our  list- 
er program,  but  cannot  be  typed 
when  you  enter  the  program  (any 
spaces  after  the  last  character  in  a 
program  line  are  ignored).  Except 
for  the  Proofreader  checksums,  the 
July  "Screen  Machine  11"  program 
is  correct  as  listed,  so  it  should  work 
if  entered  as  listed  without  using 
the  Proofreader.  The  checksums 
should  all  be  correct  in  the  com- 
mented (August)  version. 

Apple  ProDOS 
Catalog  Sorter 

The  article  with  this  utility  program 
in  the  July  issue  (p.  96)  states  that 
the  program  can  be  modified  for  a 
40-column  video  display  simply  by 
changing  the  PR#3  in  line  260  to 
PR#0.  Actually,  several  other 
changes  are  also  required  if  you 
wish  to  display  the  sorted  catalog 
on  a  40-column  screen:  The  HTAB 
statements  should  be  removed 
from  lines  340  and  780.  The  PRINT 
L2$;  in  line  460  should  be  changed 
to  PRINT  LEFT$(L2$,80  -  41  *  (A$ 


<>  "P")):  and  the  PRINT  DA$(I): 
in  line  740  should  be  changed  to 
PRINT  LEFT$(DA$(I),80  -  41  * 
(A$  <>  "P")):. 

Also,  the  author  has  provided 
the  following  enhancement  (this  is 
not  a  correction).  As  published,  the 
program  sorts  programs  strictly  by 
name.  However,  it's  often  useful  to 
have  programs  sorted  by  type  as 
well  as  by  name,  especially  for  di- 
rectories on  a  hard  disk.  If  you 
would  like  to  modify  the  program 
to  add  this  feature,  change  the  as- 
signment of  the  variable  SK$(E)  in 
line  680  to  SK$(E)  =  MID$(L4$,  18, 
3)  +  MID$(L4$,  2,  15). 

Converting  IBM  ML  to 
BASIC  DATA 

The  article  for  this  program  errone- 
ously states  that  this  program  will 
work  on  the  PCjr.  Cartridge  BASIC 
for  the  PCjr  does  not  support  the 
SHELL  command.  (SHELL  is  in- 


cluded in  Cartridge  BASIC,  but 
control  does  not  return  to  BASIC 
after  the  command  has  executed.) 
Reader  Wayne  E.  Robinson  sug- 
gests a  novel  solution  for  PCjr  own- 
ers: The  PCjr  normally  uses 
Cartridge  BASIC  rather  than  either 
of  the  PC  versions  provided  on  the 
DOS  disk,  but  it's  not  impossible  to 
use  the  disk  versions  which  proper- 
ly support  SHELL.  When  you  type 
either  BASIC  or  BASICA  at  a  DOS 
A>  prompt,  DOS  checks  for  the 
presence  of  Cartridge  BASIC  and 
displays  an  error  message  if  no  car- 
tridge is  found.  You  can  trick  the 
computer  and  use  the  disk  versions 
of  BASIC  simply  by  changing  their 
names.  For  example,  you  can  use 
the  ML-to-DATA  program  by  using 
DOS  to  rename  BASICA.COM  as 
BASICB.COM,  then  typing  BASICB 
(instead  of  BASICA)  to  start  Ad- 
vanced Disk  BASIC,  which  can  be 
used  to  run  the  program  as  listed.© 


TANDr  COMPUTERS 
SAVE  20-40% 

Off  List  on  All  Tandy  and  RS  Equipment 

The  IBM'  PC  com-  i_  ,«mi      _][  Qa||   pQf 

Latest  Prices! 

^   AOVANTAM  Of  \1C 


patlble   computer  that's 
ahead  of  ttie  crowd  I 

Includes  DeskMate® 
software  for  word  pro- 
cessing, spreadsheet 
analysis,  tGlecommuni- 
cations  and  more,  so  you 
can  use  your  computer 
right  away-  #25-1000 

"IBMrTM  Inlernalional 
Business  Machines  Corp. 

Tandy  Model  3000HD.  List  3599.  Our  . . .  MM.M 

Tandy  Model  600,  List  1699.  Our  CALL 

Tandy  Model  3000.  List  2599.  Our  CALL 

Model  200  Porlabte.  Liijt  999,  Our  CALL 

Model  102  Poftflble,  List  499.  Our  CALL 

NonHS  Expansion  Boards  CALL 

Non.RS  Hard  Drrves CALL 

You  WIN  b*  plau«d   wttii   our  courtcou*,   •fllclant  Hrvlca 
knowlKig*  that  w*  WILL  HOT  b<  undaraoMI 


^  *  DUn  IWONTHLT  W 

5    JMOAUeW    5 

COMPOMCKTI   A 


C«(l  for  monttily 
RS  ny*r  apaclala. 

Model  6000  Multi-user  wllti  XENIX.IisI  4499.  our  CALL 
Tandy  1200HD,  (XT-compalibte),  List  1999,  Our  CALL 

Lotus  1-2-3,  List  495.  Our  CALL 

Wordstar  Professional.  List  395.  Our CALL 

DMP  130  Primer.  List  350.  Our      CALL 

EPSON  Printers  CALL 

All  Tandy  and  RS  monitofs,  periptwals         -       CALL 
■nd  wHh  th* 


FOR  COLORADO 
RESIDENTS  AND 
INFORMATtON 
CALL  303-249-9125. 


CALL  TOLL  FREE  FOR  ORDERS 

1-800-44SHACK 


1REAT 


We 


ESTERN   CLECTRONICS 


228  E.  MAIN,  MONTROSE,  COLORADO  81401        HOURS:  Mon.  -  Fri.  9  a.m.  -  5  p.m. 


News  &  Products 


Epyx  Ships  New 
Entertainment  Packages 

COMPUTEI's  coverage  of  the  Summer 
Consumer  Electronics  Show  (CES)  in 
last  month's  issue  inadvertently  omit- 
ted significant  new  products  from  Epyx 
of  Sunnyvale,  California. 

Epyx  has  introduced  a  variety  of 
new  entertainment  programs  for  Apple, 
Commodore,  Atari,  and  IBM  computers. 

Among  the  new  releases  are  three 
bestselling  packages  recently  converted 
for  the  Amiga  and  Atari  ST  computers: 
the  classic  Temple  of  Apshai  Trilogy, 
three  adventure  role-playing  games  in 
one;  Rogue,  a  26-level  graphic  adven- 
ture game;  and  the  popular  Winter 
Games,  featuring  seven  Winter  Olympic 
contests.  Epyx  announced  that  many 
more  of  its  most  popular  titles  will  ap- 
pear in  Amiga  and  ST  versions  later  this 
year. 

New  titles  include  The  Movie  Mon- 
ster Game,  featuring  the  ever-popular 
Godzilla,  an  action  game  that  lets  the 
player  take  part  in  movie  monster  may- 
hem; World  Games,  a  new  series  of 
Olympic  contests  in  which  players  be- 
come international  athletes  and  travel 
to  eight  different  countries  to  compete 
in  an  event  specific  to  each  locale — for 
example,  cliff-diving  in  Mexico  or  sumo 
wrestling  in  Japan;  Super  Cycle,  an  ar- 
cade-action motorcycle  racing  game 
that  features  a  realistic  first-person 
perspective;  Championship  Wrestling,  a 
fast-action  wrestling  contest  in  which 
you  choose  your  own  wrestling  person- 
ality and  climb  into  the  ring  with  a 
formidable  opponent;  and  World  Karate 
Cha}npionship,  a  graphically  detailed 
karate-action  program  that  features 
eight  different  compeition  locations 
against  increasingly  difficult  oppo- 
nents. As  with  most  earlier  Epyx  titles, 
these  entertainment  packages  are  avail- 
able currently,  or  soon,  for  all  major 
personal  computer  systems.  Prices  vary. 

Epyx,  Inc.,  1043  Kiel  Ct.,  Sunnyvale, 
CA  94089. 
Circle  Reader  Service  Number  170. 


Color  Printer  interfaces  For 
Amiga,  ST 

Okidata  has  announced  that  the  Oki- 
mate  20,  a  color  thermal  transfer  print- 
er, can  now  be  easily  interfaced  with 


The  Okimale  20  now  works  with  the  Amiga  and  ST  computers. 


the  Amiga  and  Atari  ST  through  its 
Plug  'N  Print  modules.  The  module  is 
included  in  the  $268  price  for  the  print- 
er, and  contains  everything  the  user 
needs  to  begin  printing  immediately:  a 
data  cable,  black  and  color  cartridge 
ribbons,  and  sample  computer  paper. 

In  addition  to  printing  over  100 
colors,  the  Okimate  20's  24-element 
printhead  provides  correspondence  at 
80  cps  in  draft  mode  and  40  cps  in  NLQ 
mode.  Users  can  select  from  several 
different  type  fonts,  including  wide 
print,  boldface,  fine  print,  and  italics. 
Underlining,  superscript,  and  subscript 
are  also  standard  features. 

Okidata,  532  Fellowship  Rd.,  Mt. 
Laurel,  Nj  08054. 
Circle  Reader  Service  Number  171. 

Eiectronic  Greetings 

Create  and  send  eiectronic  greetings — 
including  animation  and  sound — with 
Color  Mail  from  Hallmark  Cards.  This 
program  lets  you  combine  graphics, 
animation,  music,  sound,  and  personal 
messages  to  send  greetings  to  other 
subscribers  of  CompuServe. 

To  use  Color  Mail,  a  subscriber  de- 
velops a  greeting  offline  and  sends  it 
through  the  electronic  mail  facility.  The 
recipient  transfers  the  greeting  for  off- 


line viewing  using  his  or  her  own  Color 
Mail  disk. 

Color  Mail  can  be  ordered  from 
CompuServe  for  $40.  This  includes 
CompuServe's  VIDTEX  communica- 
tions program,  103  design  elements, 
and  illustrated  user  guides.  A  PalPak 
costs  $60  and  contains  two  disks,  one 
for  the  sender  and  one  for  the  recipient. 
There  is  a  fee  of  25  cents  in  addition  to 
the  connect  time  charge  when  using 
Color  Mail.  New  groups  of  design  ele- 
ments can  be  ordered  for  $3.50  to 
$5.00. 

Hallmark  Color  Mail,  2440  Pershing 
Rd.,  Ste  G-40,  Kansas  City,  MO  64108. 
Circle  Reader  Service  Number  172. 


Database  Manager  For 
Commodore  128 
And  Amiga 

Mid-Kansas  Computers  recently  an- 
nounced the  release  of  Woodsoft ware's 
Flex  File  for  the  Commodore  128  and 
Amiga,  based  on  the  earlier  Flex  File 
database  manager  for  the  64  and  PET 
computers. 

On  the  Amiga  version,  all  of  the 
earlier  command  formats  have  been  re- 
tained, and  new  features  have  been 
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added  that  take  advantage  of  the  Ami- 
ga's power.  These  features  include  so- 
phisticated virtual  window  entry  editor 
with  UNDO  and  CLEAR  LINE  func- 
tions; minimal  mouse  commands  to 
speed  data  entry,  editing,  and  process- 
ing; and  storage  of  housekeeping  data 
in  machine  memory  to  maximize  file 
space.  Two  versions  are  included:  An 
Amiga  BASIC  version  that  you  can  cus- 
tomize; and  a  machine  language  ver- 
sion for  speed,  multitasking  with  other 
programs,  and  more  memory  to  handle 
extremely  large  and  complex  files.  It 
retails  for  $79.95. 

Flex  File  1 28  is  completely  compati- 
ble with  data  disks  created  on  earlier 
versions  of  Flex  File  and  Practifile  for 
other  Commodore  computers.  Its  com- 
mand structure  is  identical  to  that  of  the 
older  version,  with  a  few  enhance- 
ments. Up  to  10,000  records  can  be 
created,  with  up  to  forty  fields  per  re- 
cord. 80-column  FAST  mode  is  sup- 
ported, and  HELP  screens  are  available 
without  disk  access.  It  retails  for  $49.95. 

Mid-Kansas  Computers,  204  W.  6th, 
P.O.  Box  506,  Newton,  KS  67114. 
Circle  Reader  Service  Number  174. 


MECC  Apple 
Educational  Software 

MECC  has  introduced  two  educational 
tools  for  Apple  II  series  computers. 

Quickflash!  is  a  utility  package  that 
lets  teachers  create  electronic  flash- 
cards.  The  program  includes  automatic 
recordkeeping,  randomization  of  ques- 
tions, control  of  mastery  level,  and 
printed  progress  reports. 

Quickflash!  can  be  adapted  to  vari- 
ous subject  levels  and  includes  diacriti- 
cal marks  and  special  characters  for 
foreign  language  study.  A  printer  op- 
tion lets  teachers  print  the  questions 
and  answers. 

Students  in  grades  six  through  nine 
can  learn  to  write  plays  with  Show  Time. 
The  students  pick  the  cast  from  over 
1000  possible  combinations,  build  the 
sets,  compose  the  music,  and  write  the 
scripts  using  the  integrated  word  pro- 
cessor, MECC  Writer.  With  Show  Time, 
students  add  stage  directions,  rehearse, 
edit  the  scripts,  and  finally  watch  the 
play.  A  support  manual  is  included. 
Both  Quickflash!  and  Show  Time  require 
an  Apple  II  series  computer  with  at 
least  64K.  Contact  MECC  for  prices. 

MECC,  3490  Lexington  Ave.  N.,  St. 
Paul,  MN  55126-8097. 
Circle  Reader  Service  Number  175, 


Commodore  128  And 
IBM  Compatibility 

S.O.G.W.A.P.  Software  has  introduced 
The  Big  Blue  Reader,  a  software  program 


that  lets  users  transfer  word  processing 
and  ASCII  files  generated  on  most  IBM- 
compatible  software  to  Commodore 
128  DOS  files,  and  vice  versa. 

Release  1.0  of  The  Big  Blue  Reader 
is  priced  at  $29.95,  plus  $2  for  shipping 
and  handling  (California  residents  add 
$1.95).  The  Big  Blue  Reader  is  self- 
booting.  A  full  menu  appears  on  the  80- 
column  screen,  while  on  the  40-column 
screen  the  program  offers  a  main  menu 
and  submenus.  Prompts  take  the  user 
through  the  copying  process,  whether 
going  from  Commodore  to  IBM  or  IBM 
to  Commodore. 

The  Big  Blue  Reader  also  offers  the 
user  the  option  of  translating  MS-DOS 
standard  ASCII  characters  to  Commo- 
dore ASCII  characters — and  vice 
versa — solving  the  problem  of  reversed 
capitals  and  lowercase  letters. 

S.O.G.W.A.P.  Software,  Inc.,  611 
Boccaccio  Ave.,  Venice,  CA  90291. 
Circle  Reader  Service  Number  176. 


Pro  Golf  Simulator  For 
Atari  ST 

Leader  Board,  for  the  Atari  ST,  is  a  realis- 
tic golf  simulator  that  provides  the 
player  with  a  true  perspective  of  the 
game.  It  features  multiple  18-ho!e 
courses,  3-D  animation,  trees  and  sand- 
traps,  and  three  levels  of  play.  The  pro- 
gram also  provides  for  computerized 
scoring,  a  handicap  system,  and  re- 
quires the  player  to  make  strategic  deci: 
sions  involving  the  choice  of  club, 
distance,  and  many  other  variables. 

A  joystick  is  required.  The  ST  ver- 
sion of  Leader  Board  retails  for  $39.95, 

Access  Software,  Inc.,  2561  S.  1560 
W.,  Woods  Cross,  UT  84087. 
Circle  Reader  Service  Number  177. 


RAM-Resident  IBt^ 
Writing  Tool 

Micro  Logic  has  released  a  RAM-resident 
productivity  tool  for  the  IBM-PC  and 
compatibles.  Tornado  Notes  lets  you 
process  random  information  using  a 
system  of  parallel  text  processing.  You 
can  enter  text  into  logical  modules  and 
then  change,  reorganize,  and  code  the 
information  as  you  wish.  Tornado  Notes 
has  a  flexible  search  capability  and  in- 
cludes a  pile-of-paper  simulator,  forms 
capability,  note-joining  function,  two- 
keystrok  duplication  feature,  and  im- 
porting and  exporting  of  both  files  and 
screens.  There  is  a  built-in  editor  as  well 
as  a  helpful  icon-based  user  interface. 
Tornado  Notes  runs  on  the  IBM-PC 
and  compatibles  with  PC-DOS  (MS- 
DOS)  2.0  or  later  and  uses  50K  of  RAM, 
plus  space  for  notes.  It  does  not  use  bit 
graphics  and  supports  most  80-character 
monochrome  and  color  displays.  The 


software  is  not  copy-protected. 

Tornado  Notes  costs  $49.95,  which 

includes  a  collection  of  reference  notes 

and  a  30-day  money-back  guarantee. 
Micro  Logic  Corp.,  P.O.  Box  174,  100 

2nd  St.,  Hackensack,  NJ  07602. 

Circle  Reader  Service  Number  178, 


Idea  Processor  For  Amiga 

Flow  is  an  idea  processor  that  takes 
full  advantage  of  many  of  the  Amiga's 
features,  including  multi-tasking,  pull- 
down menus,  windows,  and  the  mouse. 

The  program's  primary  use  is  in 
organizing  and  arranging  ideas  in  prep- 
aration for  writing  papers,  articles,  or 
books;  or  for  presentations,  planning, 
and  decision-making.  It  can  also  be 
used  to  store  and  rapidly  find  important 
dates  and  appointments,  or  to  save  fac- 
tual information  in  an  orderly  fashion. 
Suggested  retail  price  is  $99.95. 

New  Horizons  Software,  P.O.  Box 
43167.  Austin,  TX  78745. 
Circle  Reader  Service  Number  179, 


BASIC  Programming  On 
Ttie  Apple 

Thirty-five  lessons  in  Ace  Programmer 
cover  the  fundamentals  of  Apple 
BASIC  programming  on  the  Apple-II 
series  computers.  This  new  program 
from  MindPlay  instructs  users,  gives 
examples,  and  then  offers  students  a 
chance  to  practice  with  70  additional 
playspace  assignments.  The  package  in- 
cludes recordkeeping,  options  to  create 
additional  playspace  assignments,  and 
a  guidebook. 

Ace  Programmer  is  available  on  lev- 
el I  for  grades  2  through  6  and  level  II 
for  grades  7  through  adult.  Backup  and 
lab  packs  are  also  available.  Suggested 
retail  price  is  $39,95. 

MindPlay,   Methods   &  Solutions, 
Inc.,  82  Montvale  Ave.,  Stoneham,  MA 
02180. 
Circle  Reader  Service  Number  180. 


Hard  Disk  Drive  For 
Commodore  64 

The  Data  Chief  is  a  hard  disk  drive 
system  with  floppy  disk  included  for 
the  Commodore  64,  available  in  a  10- 
megabyte  or  20-megabyte  version.  Pro- 
duced by  InConTrol,  Inc.,  each  system 
comes  with  a  170K  floppy  drive,  a  135- 
watt  power  supply,  a  hard  disk  drive, 
and  controller/driver  cards,  all  housed 
in  a  metal  case. 

A  second  hard  disk  can  be  added 
without  an  additional  driver  card  and, 
with  an  expansion  kit  that  will  be  avail- 
able this  fall,  three  hard  disks  can  be 
installed  in  the  system.  The  Model 
HFD-60   is   a    10-megabyte   system 
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($895);  the  Model  HFD-120  is  a  20- 
megabyte  system  ($995), 

InConTrol,    Inc.,    103    Baughman's 
Ln.,  Ste.  301,  Frederick,  MD  21701. 
Circle  Reader  Service  Number  181. 

ST  Versions  Of  Popular 
Text/Graphics  Adventures 

Spinnaker  has  announced  that  several 
titles  in  its  popular  Telarium  series  will 
now  be  available  for  Atari  ST  comput- 
ers. The  games  include  Nine  Princes  Of 
Amber,  a  game  of  negotiation,  politics, 
and  alliances  in  which  you  play  a  prince 
fighting  for  the  throne  of  the  one  true 
perfect  world  (written  by  Roger  Ze- 
lazny);  Amazon,  where  as  a  special 
agent  for  a  high-tech  research  firm  you 
must  travel  to  the  dangerous,  unex- 
plored Amazon  (written  by  Michael 
Crichton);  and  Perry  Mason:  The  Case  Of 
The  Mandarin  Murder,  in  which  you 
play  the  role  of  world-famous  criminal 
lawyer  Perry  Mason. 

The  ST  versions  of  each  program 
retail  for  $49.95. 

Spinnaker  Software,  One  Kendall  Sq., 
Cambridge.  MA  02139. 
Circle  Reader  Service  Number  182. 

Commodore  16  And 
Plus/4  Programs 

Two  entertainment  programs  and  a 
home  finance  package  for  the  Commo- 
dore 16  and  Plus/4  computers  have 
been  introduced  by  Robinson  Software 
Associates. 

Bounty  Hunter  is  a  text  adventure 
set  in  the  Old  West;  Grave  Robbers  is  a 
graphic  treasure-hunting  adventure; 
and  Savings  &  Loan  is  a  home  finance 
program  that  calculates  principal,  inter- 
est payments,  amortization  on  loans, 
and  various  types  of  savings. 

Each  program  sells  for  $9.95,  plus 
$1.50  postage. 

Robinson  Software  Associates  (RSA), 
50  South  Valley  Road  B2.  Paoli,  PA  19301. 
Circle  Reader  Service  Number  183. 

Star  Micronlcs  Printer 

Star  Micronics  has  introduced  the  NL- 
10,  a  9-wire  dot  matrix  desktop  printer 
for  professional,  small  office,  and  home 
use.  The  NL-10  prints  high-speed  draft 
quality  at  120  cps  and  near  letter  quality 
at  30  cps.  it  offers  eleven  format  and 
print  functions,  including  three  print 
pitch  selections,  type  style,  print  mode, 
margin  settings,  and  forward  and 
reverse  paper  feed.  The  rear  tractor  feed 
has  a  quick  tear  feature  plus  an  auto- 
matic feed.  There  is  an  optional  auto- 
matic single  and  dual  bin  cut  sheet 
feeder.  Ribbon  cartridges  snap  in  easily. 
The  NL-10  has  plug-in  interface 
cartridges  for  the  IBM  PC  and  PC  corn- 


ice NL-10  dot  matrix  printer  from  Star  Micronics  is  compatible  with  all  major 
personal  computers. 


patibles.  Commodore  64/128,  standard 
parallel  computers,  Apple  computers, 
and  an  RS-232C  serial  interface 
cartridge. 

Suggested  retail  price  for  the  NL- 
10  with  one  interface  cartridge  is  $379. 
The  base  unit  retails  for  $319  and  each 
cartridge  is  priced  at  $60. 

Star  Micronics,  Inc.,  200  Park  Ave., 
Ste.  3510,  New  York,  NY  10166. 
Circle  Reader  Service  Number  184. 

Inexpensive  ST  Software 

Keypunch  Software  has  introduced  a 
Line  of  inexpensive  game,  educational, 
and  personal  productivity  programs  for 
the  Atari  ST.  Titles  include  Trivia  Mas- 
ter, The  Gambler,  Strategy  Games,  Cards 
Cards  Cards,  Mind  Games,  Personal  Fi- 
nance Pak,  Executive  Data  Pak,  and  Fi- 
nance 1  &  11. 

Each  program  retails  for  $9.99. 
Amiga  versions  are  planned  for  the  fall 
of  1986. 

Keypunch   Software,    2221    Pioneer 
Bldg.,  St.  Paul.  MN  55101. 
Circle  Reader  Service  Number  185. 


r^acintosti  Graphvics 

Dynamic  Graphics  has  introduced 
DeskTop  Art  software  for  the  Macin- 
tosh, a  new  line  of  programs  that  con- 
tains graphics  selected  and  digitized 
from  the  company's  library  of  more 
than  20,000  exclusive  illustrations  and 
photos.  All  images  are  based  on  origi- 
nal art,  commissioned  and  purchased 
by  Dynamic  Graphics  from  leading  il- 
lustrators for  its  international  art 
services. 

Each  volume  under  the  DeskTop 
Art  name,  categorized  by  subject  and 
style,  includes  more  than  300  illustra- 
tions stored  on  two  disks  as  MacPaint 
documents.    Also    included    in    every 


package  is  a  24-page  how-to  guide,  a 
pictorial  index  to  the  art,  and  suggested 
applications  projects.  The  first  two  vol- 
umes are  Graphics  &  Symbols  ($66.95),  a 
collection  of  high-contrast  pictograms 
and  symbols;  and  Artfolio  I  ($74.95),  a 
miscellany  of  styles  and  subjects  that 
includes  people,  familiar  objects,  and 
animals. 

Dynamic  Graphics,  Inc.,   6000  N. 
Forest  Park  Dr.,  P.O.  Box  1901,  Peoria,  IL 
61656-1901. 
Circle  Reader  Service  Number  186. 


IBf^  Software 
From  Buttonware 

Buttonware  has  introduced  several  soft- 
ware packages  for  the  IBM  PC  and 
compatibles. 

PC-Dial  is  a  communications  pack- 
age that  features  DOS  access  for  com- 
mands or  programs,  complete  support 
of  DOS  subdirectories,  a  built-in  mini- 
editor  for  editing  files  online,  support  of 
user-defined  scripts,  smart  keys  that 
save  up  to  12  macros,  a  help  screen,  an 
automatic  redial,  communication  at 
speeds  from  75  bps  up  to  9600  bps, 
screen  colors,  and  an  on-screen  timer. 
PC-Dial  requires  a  serial  communica- 
tions port,  a  modem,  DOS  2,0  or  high- 
er, 164K  available  RAM  memory 
without  the  mini-editor  and  220K  of 
available  RAM  memory  with  the  mini- 
editor. 

PC-Style  analyzes  the  readability  of 
your  writing  by  computing  the  percent- 
age of  long  words,  personal  words,  ac- 
tion verbs,  words  per  sentence,  and 
average  syllables  per  word.  This  pro- 
gram works  with  any  standard  ASCII  or 
Wordstar  document. 

PC-Tickle  is  a  reminder  program 
that  helps  you  keep  track  of  appoint- 
ments, dates,  and  meetings.  It  also  has 


120     COMPUTEI      September  198« 


an  option  that  allows  you  to  keep  run- 
ning totals  of  your  checkbook  balance, 
calorie  consumption,  and  more. 

PC-File  HI  is  a  general  purpose 
database  manager  program. 

PC-FUe/R  has  more  features  than 
PC-File  III,  including  relational  data- 
base capabilities,  integrated  letter  writ- 
ing, and  mail-merge  capabilities. 

A  word  processor,  PC-Type  can 
perform  DOS  functions  and  has  key- 
board macros  as  well  as  help  panels  to 
guide  you  through  each  process. 

The  graphics  extension  to  PC-File 
III  and  PC-File/R  is  PC-Graph,  which 
can  plot  a  line  graph  of  a  database  or  a 
report  created  with  the  word  processing 
programs. 

PC-Dial,  PC-File  III,  and  PC-Graph 
each  sell  for  $59.95.  PC-Style  and  PC- 
Tickle  each  sell  for  $29.95  and  PC- 
File/R  costs  $149,00. 

ButtonWare,    Inc.,   P.O.   Box   5786, 
Bellevue,  WA  98006. 
Circle  Reader  Service  Number  187, 

PBS  Science  Series  Offers 
Free  Software 

Newton's  Apple,  the  popular  PBS  sci- 
ence series,  will  introduce  supplemen- 
tary software  to  support  this  fall's 
series,  thanks  to  a  major  grant  from  the 
Dupont  Corporation. 


The  software  series  will  consist  of 
six  Apple  programs  that  deal  with  the 
scientific  principles  covered  in  the  se- 
ries. For  example,  as  the  host  relates  the 
laws  of  probability  to  the  workings  of  a 
slot  machine,  a  companion  software 
program  brings  the  lesson  to  the  viewer 
through  computer  simulations  of  coin 
flipping,  dice  throwing,  and  slot  ma- 
chine playing.  Additional  software  will 
be  based  on  such  program  themes  as 
mirrors,  telescopes,  and  alcohol's  ef- 
fects on  the  body. 

Newton's  Apple  software  will  be 
available  at  no  cost  on  major  online 
news  and  information  services,  local 
bulletin  boards  systems,  user  groups, 
and  local  board  of  education  computer 
resource  centers. 

For  further  information,  contact  your 
local  Apple  user  group  or  call  a  local 
FIDO-NET  BBS. 
Circle  Reader  Service  Number  188. 


Writing  Aids  For  Appie  li 

/  Can  Write  and  Be  A  Writer  introduce 
students  to  word  processing  as  part  of  a 
book-building  venture  which  encour- 
ages creative  writing  and  helps  teach 
basic  grammar  and  writing  skills.  Both 
programs  require  the  use  of  the  Magic 
Slate,  a  Sunburst  educational  aid. 
Challenges  offered  by  /  Con  Write, 


designed  for  second  graders,  range 
from  open-ended  explorations  of  per- 
sonal identity  to  changing  a  monster's 
description  with  new  adjectives  or  com- 
manding its  actions  with  different 
verbs.  Sudents  can  easily  change  or  add 
to  each  exercise,  then  print  out  individ- 
ual lessons  to  become  part  of  their  own 
personal  writing  record.  In  addition, 
they  can  create  their  own  books  of  orig- 
inal  stories,  poems,  letters,  and 
drawings. 

In  Be  A  Writer,  designed  for  third 
graders,  students  explore  the  narrative, 
descriptive,  and  explanatory  styles  of 
writing  with  imaginative  characters  like 
Ruby  Robot  and  Giant  George, 

Both  programs,  available  for  Apple 
II  computers,  consist  of  25  lessons  each, 
and  retail  for  $40. 

Sunburst  Communications,  Inc.,  39 
Washington  Ave.,   Pleasantville,  NY 
10570. 
Circle  Reader  Service  Number  189. 

Statisticai  Basebail  Game 

SubLogic  has  introduced  Pure-Stat 
Baseball,  a  statistical  baseball  simula- 
tion game  originally  being  released  for 
the  Commodore  64,  with  later  versions 
planned  for  the  Apple  II  and  IBM 
computers. 

Pure-Stat  Baseball  contains  every 
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major-league  team  from  the  1985  sea- 
son, along  with  eight  classic  teams  from 
the  past.  The  game,  which  is  for  one  or 
two  players.  Jets  you  trade  team  play- 
ers, draft  new  players,  or  create  your 
own  teams.  There  are  three  stadiums  to 
choose  from  on  the  game  disk,  or  you 
can  purchase  an  optional  disk  with  ev- 
ery major  league  stadium  in  the  U.S. 

The  emphasis  throughout  the 
game  is  on  statistical  realism.  You  select 
the  team  you  want  to  manage,  then 
pick  the  team  you  want  to  play  against. 
Choose  starting  lineups,  pitchers,  make 
player  substitutions,  and  call  plays. 
Each  player  acts  and  moves  individual- 
ly on  every  play.  The  game  maintains  a 
complete  statistical  record  as  well. 

The  Commodore  64  version  sells 
for  $49,95.  Versions  for  the  Apple  II 
and  IBM  PC  computers  will  be  released 
at  a  later  date. 

SubLogic  Corp.,  713  Edgebrook  Dr., 
Champaign,  IL  61820. 
Circle  Reader  Service  Number  190. 


ST  Cookbook  On  A  Disk 

Micro  Cookbook,  from  FTL,  consists  of 
more  than  150  recipes,  and  is  an  au- 
thoritative source  of  cooking  tips  and 
nutritional  information  designed  to 
make  you  a  better  cook.  It's  a  time- 
saving  meal  planner  for  organizing  ev- 
ery menu  detail.  You  pick  the  menu, 
and  Micro  Cookbook  creates  a  shopping 
list  of  all  the  ingredients  you'll  need. 

Available  for  the  Atari  ST,  Micro 
Cookbook  retails  for  $49.95. 

FTL,  6160  Lusk  Blvd.,  C206,  San 
Diego,  CA  92191. 
Circle  Reader  Service  Number  191. 


Apple,  IBM,  Commodore 
PlayWriter  Programs 

Woodbury  Software  has  announced  the 
availability  of  two  new  programs  in  the 
company's  PlayWriter  series  for  the 
Apple  II,  Commodore  64,  and  IBM 
PC/PCjr  computers.  Each  title  in  the 
series  helps  young  authors  write,  edit, 
print,  illustrate,  and  produce  hard- 
cover novels. 

MYSTERY!  and  Castles  &  Creatures, 
the  newest  additions,  are  aimed  at  users 
age  seven  and  above,  including  adults. 
In  MYSTERY!,  you  write  your  detective 
novel  by  choosing  and  describing  your 
sleuth,  determining  the  method  and 
motive  of  the  murder,  and  creating  your 
own  cast  of  characters.  In  Castles  & 
Creatures,  you  build  your  own  adven- 
ture in  a  world  of  fantasy  and  imagina- 
tion. Your  environment  is  filled  with 
dragons,  knights,  sorcerers,  and 
royalty. 

Each  PlayWriter  title  is  priced  at 
$39.95  and  includes  a  software  story 


disk,  color  stickers,  full-page  illustra- 
tions, a  hardcover  book  jacket,  special 
paper,  and  easy  to  use  instructions.  Ear- 
lier PlayWriter  titles  include  Tales  of  Me 
and  Adventures  /«  Space. 

Woodbury  Software,  127  White  Oak 
In.,  CN  1001,  Old  Bridge,  N}  08857. 
Circle  Reader  Service  Number  192. 


Commodore  Music 
Software  Guide 

Commodore  64  &  128  Music  Software 
Guide,  by  noted  computer  music  con- 
sultant Lolita  Walker- Gilkes,  is  a  com- 
prehensive music  software  guide  that 
ranges  from  advice  on  how  to  use  the 
Commodore  for  music  to  detailed  ex- 
planations of  individual  software  pro- 
grams and  their  target  audiences.  The 
text  presents  descriptions,  age  groups, 
and  prices,  and  breaks  the  information 
into  sections  on  theory,  eartraining,  fin- 
gerings, composition,  entertainment 
and  graphics.  A  separate  section  is  de- 
voted to  MIDI  (Musical  Instrument  Dig- 
ital Interface),  and  appendices  include 
vendor  addresses,  periodicals,  and 
books  that  can  further  help  users. 

The  guide  sells  for  $11.95. 

Urtsinn  Publications,  P.O.  Box  672, 
Drexel  Hill,  PA  19026. 
Circle  Reader  Service  Number  193. 


Telecomputing  Package 

A  new  hardware  and  software  package 
from  Kinesis  Corporation  allows  up  to 
23  simultaneous  callers.  POPnet  lets  us- 
ers carry  on  private  or  open  conversa- 
tions with  other  users,  take  part  in  any 
of  the  two-player  games,  including 
chess,  checkers,  backgammon,  and 
Othello,  or  drop  into  one  of  the  multi- 
player  games  such  as  poker,  liar,  star 
trader,  and  house-o-fun.  There  are  also 
mail  and  bulletin  board  areas. 

POPnet  is  set  up  for  operation  as  a 
business,  complete  with  accounting 
software.  Typical  charges  to  a  user  is  75 
cents  an  hour.  Contact  Kinesis  Corp.  for 
price. 

Kinesis  Corp.,   3000  Citrus   Circle, 
Suite  212,  Walnut  Creek,  CA  94598. 
Circle  Reader  Service  Number  194, 


Apple  II,  IBM 
Grammar  Program 

Grammar  Gremlins,  a  comprehensive 
grammar  program  for  elementary  stu- 
dents, is  the  newest  release  from  David- 
son &  Associates,  for  the  Apple  114-,  He, 
and  lie  at  a  suggested  retail  price  of 
$49.95.  An  IBM  version  will  be  released 
in  September. 

Grammar  Grem/i'ns  presents  gram- 
mar rules  with  over  700  practice  exam- 
ples and  sentences.  The  program  covers 


abbreviations,  subject/verb  agreement, 
capitalization,  contractions,  parts  of 
speech,  plurals,  possessives,  punctua- 
tion, and  sentence  structure.  Its  features 
include  an  easy-to-use  editor,  anima- 
tion, color,  optional  sound  effects, 
record-keeping,  and  print-out  capabil- 
ities, 

Davidson  &  Associates,  Inc.,  3135 
Kashiwa  St.,  Torrance,  CA  90505. 
Circle  Reader  Service  Number  195. 


Commodore  64  Music 

Free  Spirit  Software,  publishers  of  the 
classical  music  disk,  Music  of  the  Mas- 
ters, has  announced  a  second  classical 
music  disk  for  the  Commodore  64,  Mu- 
sic of  the  Masters,  Vol.  U. 

The  program  contains  40  composi- 
tions by  composers  such  as  Mozart, 
Bach,  Beethoven,  Brahms,  and  others. 
Instrument  simulations  include  piano, 
harpsichord,  violin,  flute,  guitar,  and 
clarinet.  Screen  commentary  on  the 
composers  is  included. 

Music  of  the  Masters,  Vol.  U,  has  a 
price  of  $9.95.  Both  volumes  may  be 
purchased  for  $16.95.  No  shipping  and 
handling  charges. 

Free  Spirit  Software,  Inc.,  5836  S. 
Mozart,  Chicago,  IL  60629. 
Circle  Reader  Service  Number  196. 


Commodore  Bulletin  Board 

Blue  Board  from  50TA  Computing  Sys- 
tems is  a  bulletin  board  system  for  the 
Commodore  64  that  supports  over  200 
online  messages  (of  up  to  1,023  charac- 
ters), up  to  220  users,  and  more  than  25 
sysop-definable  sub-boards. 

Written  entirely  in  machine  lan- 
guage, the  system  includes  remote  SY- 
SOP  access,  a  private  sysop  sub-board, 
and  unlimited  session  connect  time. 
Blue  Board  also  includes  Scribbles, 
which  are  mini  sub-boards  for  mes- 
sages of  up  to  80  characters  (for  opinion 
forums,  voting,  chess  games,  etc.).  The 
system  can  be  reconfigured  by  the 
sysop. 

Blue  Board  requires  a  Commodore 
64  or  128  with  one  disk  drive  (1541  or 
equivalent),  and  a  300-baud  auto- 
answer modem  (Commodore  1650  or 
equivalent).  The  suggested  retail  price 
is  $69.95  (U.S.  funds). 

SOTA  Computing  Systems,  Ltd.,  213- 
1080  Broughton  St.,  Vancouver,  British 
Columbia,  Canada  V6G  2A8. 
Circle  Reader  Service  Number  197.        © 
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Treasure  Island 27  95 

Wizard  01  Oj 27,95 

Borrowed  Time 33.9S 

Mi-Term  34.95 

Regeni2w/Gem 64.95 

(tegeni  Spell 3195 

Regent  Base 64.95 

Goldrunner 2795 

Time  Bandit 2795 

Zoomracks 4995 

Easy  Draw 9995 

Mindshadow 3395 

Ptianlasie 27  95 

Hippopotamus Call 

Supra  Hard  Drive Call 

Supra  1200  ST  Hodi:m     159 
QMI 1200  ST  Modem  ...  159 

PC  Board  Desgner Call 

Inlocom  S*e  IBM 

Apshai  Trilogy 2795 

N-Vision 2795 

DBMan 69.95 

Smalt  Bus  Pkg    84.95 

Cornerman 34.95 

ALT 34.95 

M-Copy 54  95 

Winter  Games 27  95 

VKinnie  Tbe  Pooh 1995 

Silent  Service 2795 

Flight  Simulator  II .. .  .3495 

Music  Studio 3995 

Ptiantasie 27  95 

t  Megabyte  Upgrade ., ,  175 

Emended  Warranty Call 

Computer  Baseball  ...2795 

Chessmaster  2000 32  95 

Strip  Poker 27.95 


liato 3495 

Kings  Quest  It 3395 

ST  Talk 1795 

HAD  Base 64  95 

Typesetter  ST 24  95 

Word  Invaders 24  95 

Wean  18  Golf 3495 

Financial  Cookbook     3495 

Brataccus 3395 

Michtron  Ulihties 3995 

Black  Cauldron 2795 

PrintmasterST 24  96 

PC  Intercom  8995 

Final  Word 9495 

Hex 2795 

Mudpies 27» 

Sundog 24.95 

Flipside 2795 

Softspool 2795 

VIP Prolessional  .,,.11995 

Ultima  It 3995 

Perry  Mason 3395 

Degas 27  <6 


Farenheit  451  . . 
Personal  Pascal 

Art  Gallery  I  

Compubridge  . . 
Major  Motion  . . 

Pawn 

DFT 


,3395 
-49  9S 
.1995 
.1995 
.2795 
.29.95 
.3495 

Universe  II  4995 

Macrodesk 20  S5 

Rubber  Stamp 2496 

Kissed  3495 

Cards 2795 

Rouge 2795 

Masterlype 2795 

Easy  Record 5495 

SwitlcalcST 59  » 

Data  Manager  ST 5995 

Little  Comp.  People ,..  34.96 

^Ptiilon Call 

^Wordwriter  ST  ...  59  75 


Call  for  Hardware  and  Add-on  Peripherals  pricds 

AMIGA  SOFTWARE 

Hacker 2995 


Mindshadow 2995 

Masterlype 27.95 

VIP  Professional  , , . .  139  96 

Analyze 6995 

Online 4996 

Artie  FOK    2995 

Adventure  Const 2995 

Deluxe  Video, , Call 

Deluxe  Paini 6995 

Infocom  ,.,...,.  See  IBM 
Monkey  Business  , . . ,  19  95 

Rouge 2795 

Apsdai  Trilogy  2795 

Delta  Patrol 1995 

Aegis  Draw 13495 

Little  Comp  People...  34  95 

Instant  Music 34,95 

Mean  18 3495 

Leader  Board 27  95 


Maxicom  3996 

Haiidesk 4995 

Haniplan  11995 

One  on  One 29  95 

7Cilies/Gold 2995 

Skylox 2995 

Maibie  Madness 2995 

Return/Allamis 2995 

Archon 2995 

Aegis  Animator 99,95 

Deluxe  Print  ,. 6995 

Music  Studio 39.95 

Borrowed  Time ,2995 

Financial  Cookbcek     34  95 

Scribble 6995 

Halleys  Project 2995 

KidTalk  3995 

Speller  Bee 3995 

Gizmo 34  95 

DBMan 6995 


APPLE 

SOFTWARE 


BRODERBUND 

PiiniShop 3996 

Prim  Shop  Giaphics 

I,  II.  or  III 17.95 

Print  Shop  Comp 2795 

Karaieka 21.95 

ELECTRONIC  ARTS 

Bard's  Tale 2995 

Auto-Oue!  3495 

Skylox 27  95 

Lords 01  Conquest  ...27  95 

UlhmalV  3995 

Moebius 3995 

Amnesia Call 

EPYX 

Winter  Games 24,95 

Summer  Games  II 24.95 

INFOCOM 

See  fBM  section  for  tterns 
and  prices 

MICRQPRQSE 

See  Atari  130KE  section  lor 
Items  and  pnces 


Slfl-TECH 

Wi^ardry/Diam    .. 

.2395 

Wizardry /Legacy  . 

..27  95 

WizardfyyProvmg. 

...33  95 

SSI 

See  Corrjmoctore  M  sec- 

iron  lor  Hems  & 

prices. 

APPLE  MISCELUNEtlUS 

Gamemaker 

...V3i 

Hardball        .     . 

..  ,2195 

Sundog 

,,,2?95 

Newsroom 

.,.39  55 

Clip  An  Vol  1  .... 

.,,20  95 

Clip  An  Vol  II . . , . 

,,,27  95 

,,,27  95 

Kung  Fu  Wasler  . . 

,,.2595 

Karate  Champ  , . . 

,,.2595 

..  .2395 

Math  Blaster...,, 

,..3495 

Fight  Nigtil . 

.  ,  .24  95 

Ptianlasie )]  , , , .. 

.  .  ,27  95 

Ram  ho  .,...,,.  H 

...27  95 

Amer  Challenge ., 

...27  95 

Crossword  Magic, 

...34  95 

PC 

natibte 

,Cail 

Corona  POflabie  PC  Competitile  . , ,  Call 

IBM  PC  SOFTWARE 


3995 
27.95 
4995 
2996 

2395 
2?  95 
2795 


BRODERBUND 

PnrlShop 

Pnrl  Shop  Grapli  I 
Bank  Street  Wiilei 

Ancient  Art  ot  War 

MICROPROSE 

F-15  Strike  Eagle 
Kennedy  Approach 

Acroiet  

Siltni  Service 27.95 

IBM  MISCELLANCQUS 

Wean  18  34  95 

Gaio ;795 

Wizardry 3995 

Strip  Poker 27  95 

Jei 34.95 

Newsroom  3995 

Superbowl  Sunday  ..2495 

HomePak 3495 

AllerEgo 34  95 

Hacker 2995 

Borrowed  Time 2795 

Isgur  Porllolio  16495 

Typing  Tuloi 34  95 


INFOCOM 

Deadline  34  95 

Slarcross  34  95 

Zofk  1 27  55 

Zo/k  II  or  III 29  95 

Witness 27  95 

Suspended 34  95 

Planetfall 27  95 

Sorcerer  29  95 

Seastalher  27  95 

Cutthroats 27  95 

Hitchiker , .  27  95 

Suspect 29  95 

Wishbringer 27  95 

Infrdel  29  95 

Enchanter 27  95 

Spelibreaker 34  95 

Wind  Forever  34  95 

Ballyhoo 27  95 

SIERRA 

King  5  Ouesi 34  95 

Kings  Quest  II  34  95 

Ultima  II  39  95 


COMMODORE 

COMMODORE128 


C-128  Computer  Call 

1571  Disk  Drive Call 

19<E  Monitor Call 


1670  Modem Call 

ISSOMouse 42.95 

1750 512K Expander  ...Call 


COMMODORE  128  SOFTWARE 


Swiltcalcw/Side  ,,,,49.95 
WordwriMr  •  Spell  . .  .49.95 
Data  Manager  ii  , , . ,  .49.95 

Fleet  System  III 54.95 

Mach  128 ,  .34.95 

Superbase  128 69.95 

Pocket  Writer  128  .  ...32.95 
Pocket  Panner  128  .. .  32.95 


Superscript  12B 59.95 

Pertecl  Writer 4995 

Sylvia  Porter- 128 4995 

Perlect  Filer  49,95 

Viiiwrite  128 Call 

Vi2istar128 Call 

Pocket  Filer  128 32,95 

Partner  128 39,95 


COMMODORE  64 

MEW 64C Computer  ..Call     1660Modem 49.95 

C*t  Computer Call     1670  Modem Call 

1541  Disk  Drive Call    1802  Monitor Call 

COMMODORE  64/128 

SUPER  PRINTER  PKGS. 

NX-10  &  Xetec  Supergraphic ...  .299 
Panasonic  1091  &  Xetec 

Supergraphic 309 

Legend  1080  &  Xetec 

Supergraphic 269 

Super  Printer  Packages  have  no  added  shippir;g 
or  charge  card  surcharges  wheri  shipped  in 
Continenlal  USA. 


WhS9  Stippilea  Last 
jELf.  SO  ColiimB  Cfrd . ...  59.ei» 


XETEC  Super  Graphic 69.95 

Cardco  G-Wiz 54.95 


GENERAL 
HARDWARE 

ngiiiJwuJiiCiMgnMiiiiiiirnWi 

NX-10 Call 

SG-10 Call 

SG-15., 369 

SD-10 339 

SD-15 449 

SR-10 489 

SR-15 Call 

NL-10 Call 

NL-IOC   Call 

PBIHTERS 

Panasonic  1091  239 

Legend  808 169 

Legend  1080 2(19 

Powertype 309 

Juki Call 

Epson  Ca!l 

Panasonic  1080  215 

PRINTER  BUFFERS 

Microlaier  From  169 

U-ButI  t6K 79,95 

U-Bu1l64K 99,95 

MODEMS 

Volksmodem  1200 169 

Prometheus  12tXI 299 

Maxwell  1200 Call 

Maxwell  2400 Call 

Prometheus  2400 Call 

MDNITOHS 

NAP  Amber 6995 

Commodore  1802 Call 

Goldstar  13"  Color 129 

Teknika  RGB Call 

Magnovox  RBG  Call 

Commodore  1902 Call 


ACCESS 

Mach  V  Cart 21.95 

Leader  Board 27.95 

Tenth  Frane ,  .27.95 

SSI 

Battle/Ahtietam 32.95 

Panzer  Greoider 24.95 

USAAF 37.95 

Kampgruppe 37.95 

Broadside 24.95 

Carrier  Force  37.95 

Comp.  Ambusti 37.95 

Field  of  Fire 24  95 

Gemslorie  Warrior    ...21.95 

Imp.  Galactum  24.95 

Computer  Baseball  ,,,24.95 
Comp.  Quarterback  . ,  .24.95 

Wizards  Crown 27.95 

Gettysburg 3995 

Ptiantasie 24,95 

Mech  Brigade 39.95 

SSI  iNO  ATARI] 

Rings  ot  Zillin 27.96 

Phanlasiell .2796 

Battle  Group 39.95 

Roadwar2IXX) 27.95 

MICROPROSE 

See  A  tin  I30XE  section  lor 
ilems  and  prices 

ABACUS  SOFTWARE 

Caii  for  Items  and  Prtces 

4l^044*Mmf.lf^ 
dpm  w*  H  Iwn,  dani  ' 
;"   tiitiillM*i«i;tilL 


COMMODORE  64  SOFTWARE 


INFOCOM 

ZorkI 2495 

ZorklLorlll 27.95 

Deadline 29,95 

Starcross 29,95 

Witness  24.95 

Ptanetlall  24,95 

Hilchiker 24,95 

Enchamer 2495 

Cutthroats  2495 

Sorcerer 24,95 

Spelibreaker 29,95 

Ballylioo 2795 

ELECTRONIC  ARTS 

AdvConstruCliOn..,.  29,95 
Mail  Order  Monsler...  24  95 
Racing  Destruction  ...24,95 

UlhmalV  4195 

Bards  Tale 2795 

Lords  0)  ConQuesI  ...2795 
Chessmaster  2000....  2795 

Ultimate  Wuard 24.95 

Super  Boulderdash  ...1995 

Mind  Mirror 24,95 

Auto  Duel 34,95 

Ogre  ,.. 27,95 

See  Atari  730XE  soction  lor 
res!  ol  ilBtns  A  pncfls. 

EPYX 

Wrnier  Games 24  95 

Apshai  Trilogy  2495 

Fast  Load^Cart 24,96 

Vorpal  Utility  2295 

Multiplan  4495 

Movie  Monster 2495 

World  Karate  1995 

Super  Cycle 2495 

Champ  l^reslling.... 24,95 


MiSCElLANEDUS 
COMMODORE  64 

Freeze  Frame 34,95 

Print  Shop 28.95 

Cal-Kit  34.95 

Superi)ase64 47.95 

Karaieka 20.95 

Hacker 20.95 

Gamemaker  27.95 

Uhimall 37,95 

Karate  Champ 25.95 

Sticks  ol  Death 2095 

Kung  Fu  Master 25.95 

Paper  Clip/Spell 54.95 

Consultant 41.95 

Spy  vs.  Spy  Vol,  Ii  ...23.95 

Internal  I  Hockey  19.95 

Pri  Shop  Compan 27.95 

Prt  Shop  Graphics ....  19.95 

Gato 2055 

Jet 29.95 

Fleet  System  II 44.95 

Printmasier 24.95 

Newsroom  34.95 

Fnntmasler  II  34.95 

Sports  Lib.  Vol  I 19.95 

Geos 39.95 

Hidden  Assets  Call 

Adv.  Music  System...  54.95 

Spitfire  40 23.95 

Fight  Night 19.95 

Hardtiall 19.95 

2 on 2 Basketball  ....23,95 
Murder /Mississippi.,  23.95 


^ ■  EST.  1982 ^p  -       -     '^^^  '^'^^'i 

KLomLpat(ftbLLitsL. 


PO,  Box  17882.  Milwaukee.  Wl  53217 

ORDER  LINES  OPEN 

Mon-Fri.  Ham  ■7  p.m.  CST 

Sat  12pm  -Spm  CST 


NO  SURCHARGE  FOR  MASTERCARD  &  VISA    S 


To  Order  Call  Toll  Free  ForTechnlcal  Info.,  Order  Inquiries,  orforWiac.  Orders 

800-558-0003         414-351  -2007 

ORDERIHS  INFORMATION:  Please  iptdly  lyitBin  For  last  delivery  send  cashier's  check  or  money  outer  Personal  and  company  checks  allow  14 
business  days  to  clear  School  PO  S  welcome.  Cai  dur^B  ire  tlOO  In  Continental  US.A  include  53.00  for  software  Orders,  4',)  shipping  for 
hardware,  minimum  S4.00.  Master  Card  and  Visa  orders  please  include  card «.  expiration  dale  and  signature,  Wl  resitlents  please  include  5% 
sales  tax.  HI.  AK,  FRO,  APO,  Puerto  Rico  and  Canadian  orders,  please  add  5%  shipping,  minimum  KOa  All  other  torelgn  orden  idii  15%  thlpplno. 
minium  tiaoa  All  orders  shipped  outside  iheContinental  U,S,A,  areshipped  lirsl  class  insured  U.S.  mail.  II  loreign  shipping  charges  exceed 
the  minimum  amount,  you  will  be  charged  the  additional  amount  1o  get  your  package  to  you  qu ickly  and  salely.  All  goods  arc  new  and  include 
lactory  warranty.  Due  to  our  low  prices  all  sales  are  final.  All  deledlvg  tttums  mutl  hne  a  reltirn  itittwlnllon  iKjitibci'.  Please  call  (414)  351  -2007  to 
obtain  an  R.A.H  ot  your  return  will  not  be  accepled.  Priced  and  availability  subject  lo  change  without  nolii;e. 


A  Complete  Pro  Football 

Prediction  Program  For  The 

1986  NFL  SEASON 


61%  + 


Accurate  vs  'Spread'  Since  1981 

More  Features  —  More  Information  In  1986  To 


BEAT  THE  SPREAD  

95    INCLUDES  DISK,  DOCUMENTATION 
SHIPPING  S  HANDLING 

Apple  II  -  f)c  -  lie 

Commodore  64  —  128 


•  •  FEATURES  •  • 

Predicted  Scores  Each  Week 

Season  Schedule  By  Week/Team 

Records  &  Results: 
Scores  By  Week 
Scores  By  Team 
Division  Standings 
Standings  vs  Line 
Stats  —  Accumulated  &  Average 
1983-1985  Data  Base 

Auto  Opponent  Input 
Printed  Copy  All  Screens 
Easy  Update- Playoffs/1 987 
Dealer  inquiries  Invited 


54" 


IBM  PC,  Tandy  &  Compatibles 
TRS-80  Mlil/IV 


Stats  Needed  To  Run  Program 
Available  In  Local  Newspapers 

Or 
We  Wtll  Furnish  Stats  By  Mail  Or  Modem 
All  20  Weeks  —  Season  Price  .  .  .  40™ 


Program  Comes  Updated  Thru  Current 
Week  Of  Season  ...  No  Extra  Charge 


ORDERS  SHIPPED  IN  2  DAYS 
PHONE  LINES  OPEN  24  MRS. 


C.O.D. 


TOLL  FREE  -~  800-722-2277 
TEXAS  COLL.  -  214-586-8212 


Marathon  Software  Dept.  C 

p.  O.  BOX  1349 
JACKSONVILLE,  TEXAS  75766 

TOU.  FREE  i  CDUICT  FOR  mVERS  OHLT 


THE  LOWEST 

THE  BEST 

PHONE                1&6  E.S.T. 

PRICES 

ELECTRONIC  ONE* 

lines                   M-F 
OPEN 

CALL  re  14J  864-9994  •P.O. 

Box  11428  •COLUMBUS. 

OHIO  43213 

COHHODORE  HARDWARE 

fscomfnodore 

[MBKS 

JOYSTICKS 

CiaS  COMPUTER 
CSJCOMPUTCfl 

249.99 
133.99 

SONY  S/S  DID 

BASF  SISDID      

7.99 

7.99 

THE  BOSS 

THE  BAT 

11.99 
.18.99 

[s^m{\ 

1541  COMPUTER 

179.99 

PERCISIOND/DD/O  ... 

B.« 

KRAFT 

.,7.99 

1571  DISK  DRIVE 

229.99 

DISK  NOTCHER 

2.99 

SPECTBOVIDEOI 

..4.99 

1702  MONITOR 

179-99 

FLIP  a  FILE  (SOt 

.«.99 

SPECTROVIDEOZ 

4.99 

MPS-  1000  PRINTER 

239.99 

SUPER  SUHMER  SOFTWARE  SALE 

ALLQUANTmeSAREUmTBl             1 

1350  MOUSE   . 

39.99 

JUKE  BOX 

2,99 

GORTEK  MICRO  CHIPS 

99C 

SALE  PRICES  END  SEP7EUBER  30         1 

1200  BAUD  MODEM 

-149.99 

STORY  MACHINE 

2.99 

JUICE 

99t 

OR  WHIL£  Sif  FLIES  LAST.                I 

PRIMT1R8 

ALPHABET  ZOO 

2.99 

THE  FACTORY 

99C 

Q-BERT    

.-4.99 

STAR  lOX 

169.99 

UP  FOR  GRABS 

2.99 

ATTACK  MUTANT  CAMELS            -  99* 

BEAM  RIDER 

..4.99 

STAR  SG  10C 

229.99 

DEtTA  DRAWING 

.2.99 

BRAVO            

-1.99 

PITFALL         

.4.99 

STAR  NX  10   .  . 

.239.99 

ADVENTURE CREATOR  

3.99 

KID  GRID 

1.99 

ROBOTS  OF  DAWN 

.4.99 

PANASONIC  lOaO 

.199.99 

COSMIC  LIFE 

-    3-99 

TURTLE TOYLAK)   .... 

1.99 

HERO         

4.» 

PANASONIC  1091 

.229.99 

LOGIC  LEVELS - 

3  99 

ALF  COVER  CAVES  -    .  . 

£99 

WS  GAMES 

.4.99 

FACE  MAKER    

3se 

TRAINS 

299 

LXaO  TRACTOR 

24  99 

SWIFTAX(1983) 

3  99 

SNOOPER  TROOPS 

399 

SLIDES   htOMEFILF 

499 

SeiKOSHA 

179.99 

SNAKE  MAN      

389 

HEY  DIDDLE  DIDDLE.  , 

3.99 

MR  ROBOT     

.4.98 

DANCE  FANTASY 

4-99 

CONGO  BONGO 

3M 

&WIZ  INTERFACE                         46.^ 

4.99 

POOR  MAN 

........3je 

CENTIPEDE 

.4.99 

CAHDCO-G  INTERFACE 

-  37-99 

DUCKS  AHOY    

.4.98 

TROLL'S  TALE       

3.99 

HOaOTRON 

4.99 

WEBSTER  WORD  GAME 

-  .4-99 

SPACE  RESCUE 

3S9 

CHOPLIFTEH 

-6.99 

P  P 1  INTERFACE 

29.99 

UNKING  LOGIC 

-4.99 

JUNO  FIRST 

3.99 

MIRAG  E  WORD  PROCESSOR 

7.99 

xetec  jh 

36  99 

TYPE  ATTACK 

.-4.99 

LEARNING  W/LEEPER  . 

3.99 

ACCOUNTS  PAY  ABLE 

.7.99 

XiTECSR.(ek8UFF) 
TOTAL  COM  M  MODEM 

56  99 

BIG  BIRD 

..4-99 

JAWBREAKmil 

3.99 

SIMONS  BASIC     

-7.99 

.29.99 

SERPENTI(« 

-4-99 

DAVID  MIDNIGHT  MAGIC 

3.99 

GHOSTBUSTERS     

.9.99 

MONITORS 

MISSING  LINKS 

4.99 

BUSINESS  SYSTEMS  .  - 

4.99 

READING       

9.99 

U- THOMPSON  COLOR 
13"SAKATACOLOR 

139.99 
139.99 

AZTEC 

4.99 

PUZZLE  PANIA        

4.99 

BARRONS  SA.T 

19.9S 

VIC      .93 

20     ^  ■ 

EACH 

12"  SAMUNGOREEN 

-  -,  .49.99 

•   DEMON  ATTACK         •  POLE  POSITION 

BATTLE  ZONE             •  MS  PAC  MAN            1 

•  FAST  EDDIE                •  CENTIPEDE 

DEFENDER                  •  KRAZY  ATTACKS      1 

•  ATLANTIS                    .  GALAXIAN 

ROBOTRON                 •  JUNGLE  HUNT          | 

•   DONKEY  KONG 

MOON  PATROL           •  TURMOIL 

SOFTWARE 

HOW  TO  on  Dm: 

CASHIER  CHEC 

;K.  MONEY  ORDER.  MASTERCARD 

OR  VISA 

(ADD  4%  FOR  CHARGE  CARCG) ...  NO  PERSONAL  CHECKS  ...  NO  C.O.D.'S  .  .  . 

SHPPEO  U.P.S.  . 

-ALL  PRICES 

SUBJECT  TO  CHANGE  WITHOUT  NOTICE. 

SHIPPING:  ADO  S, 

JOOONALLOF 

DeRS  UNDER  SIOO.OO         ADD  IS  00  ON  ALL  ORDERS  OVER  J1OO.0O.  ACTUAL  FREIGHT  CHARGED  OH  MULTIPLE  ORDeflS. 

IHTEnNATI0*4AU: 

ACTUAL  FREIG 

HT  CHARGED  ON  ALL  ORDERS  OUTSIDE  THE  CONTINENTAL  UNITED  STATES  INCLUDING  A.PO. 

POLICIES:  NO  RETURNS  WfTHO 

UT  A  RETURN  AUTHOfllZHTWN  - 

,   -  NO  RETURNS  UNLESS  DEFECTIVE. 

ALL  DEFECTIVES 

WILL  BE  EXCHANGED  ...  NO 

EXCEPTIONS. 

ELECTR 

ONIC  ONE 

P.O.  Box  13428 

CALL 

r6l4J8« 

•4-9994 

WRITE: 

Columbus, 

Ohio  43213 

a 


an 


BBH^ 


r- 

m    It 

r  " 

■■■ 
■■■ 

■■■ 
r  f 

■■■ 

BBS 

■■■ 

■■■ 

■■■ 

■■■ 

■■■ 

-/  ../  ..  I'  f  r    'I.  < 

-    I    '■!    «'  i    •    i   i     II    i 


■T  If  i   —It  m       if  ^ 
A  "  /  aar  !■   i    r  .. 


■■■r' 


aa 
aa 

aaaa 
aaaa 

aa 

■aaa 

aa 

■aaa 

aa 
aa 

[si 

aaaa 
aaaa 

J    ~i 

COMMODORE 
8-BIT 

D64C  Computer $1 79 

DlS-aiC  Drive $199 

C-1 28  Computer   CALL 

VIC-1571  Drive  CALL 

VIC-1581  Drive   CALL 

Expansion CALL         SF  354  Drive CALL      XM  301  Modem S  39        51 2K  RAM  Expansion   $179 


COMMODORE 
AMIGA 

256  K.  Color  Amiga 

System CALL 

256  K.Amiga CALL 

A1010  3'/!"  Drive CALL 

A1050  256K. 


ATARI 
ST 

520  ST  Color 

System CALL 

520  ST  JVlonochrome 

System CALL 

SF  314  Drive CALL 


ATARI 
8-BIT 

SOOXL  Computer   S  69 

130  XE  Computer $129 

1050  Drive   SI  29 

1 027  Printer    $  99 

1 020  Ptinter  S  24 


-■■I 


CALL  ON  THESE  AND  OTHER  PRODUCTS 
WE  CARRY  A  COMPLETE  LINE  OF  SOFTWARE  AND  HARDWARE  INCLUDING  PRINTERS 


TOP  HITS 


ATARI  SOFTWARE  ST 

Home  Planetarium $  24 

Joust $  24 

CP/M  Emulator $  39 

2  Key  Accounting CALL 

Little  Computer  People   $  39 

Championship  Golf CALL 

Degas $  29 

Music  Studio   $  37 

Leader  Board  Golf CALL 

Financial  Cookbook $  29 

Fortran $129 

Jet CALL 

Flight  Simulator  II $  39 

Pascal $129 

"C"  Compiler $129 

Cobol $259 

Print  (Vlaster   $  29 

Art  Gallery $  24 

ATARI  SOFTWARE  XUXE 

Banle  of  Antietam  $30 

USAAF S35 

M.U.L.E $17 

Movie  Maker $39 

One  On  One $24 

Seven  Cities  of  Gold   S24 

Silent  Service S27 

F-16  Strike  Eagle $25 

Music  Studio   S27 

Printshop  Companion S21 

Temple  of  Apshai  Trilogy S26 

Flight  Simulator  II S39 

Scenery  Disk  (For  Abovel    .  .  S16 

Karateka $24 

Nam   $29 

Super  Bowl  Sunday $22 

Atari  Basic  IR) $  5 

Print  Shop $35 

Graphic  Library  I,  II  &  III . .  .ea.  $18 


COMMODORE  SOFTWARE 
AMIGA 

Artie  Fox $30 

Sky  Fox $29 

Deluxe  Paint $65 

Deluxe  Print   $65 

Aegis  Draw CALL 

Aegis  Animator $99 

Music  Studio  $39 

One  On  One $29 

On  Line $49 

Analyze S69 

Amiga  Assembler CALL 

BBS $65 

Lattice  "C" CALL 

Amiga  Pascal CALL 

Scribble $65 

COMMODORE  SOFTWARE 

64/128 

Mastertronics  Title 

As  Low  As $7.95 

All  Abacus  Title CALL 

Football $29 

Printship $35 

Printshop  Companion $28 

Leader  Board  Golf  $28 

Tournament  Disk  (For  Abovei . .  $14 

Print  Master   $27 

Newsroom   $39 

Fontmaster  II. $31 

Fast  Hack'em $31 

Snapshot $39 

Tenth  Frame   CALL 

Merlin  64/1 28 CALL 

Bard's  Tale $28 

Lords  of  Conquest $29 

Sky  Fox $27 

USAAF $35 

Gunship $25 

Silent  Sen/ice $25 


ATARI  POWER  PACKS 

REPLACEMENT  TRANSFORMER 

FOR  800/400,  810,  1050, 
1200XL,  1020    $4.95 


EARLY  BIRD 
CHRISTMAS  SPECIALS 

SUNCOM 
P.Q.  PARTY  QUIZ 


ONir 


^4 


95 

ATARI  OR  COMMODORE 


RIBBONS 

Atari  1025  (Blackl   $2.50 

Atari  1025  (Color)    $3.50 

Panasonic  1091  (Black) $8.50 

OkimatelO  (Color) $6.00 

Star  Gemini  10  (Black) $2.50 

Star  Gemini  10  (Color) $3.50 

Star  Powertype S6.00 

Epson  MX/RX/FX-80 $6.00 

Commodore  1525  (Black)  . .  .$7.50 
Commodore  1526  (Black)  .  .  .S7.00 

Commodore  MPS  801    $7.50 

Commodore  MPS  802   $7.00 

Commodore  MPS  803   $9  00 


BULK  DISKS 

100  Quality  DSDDS'A" 

.ea. 

$ 

.69 

100  Quality  SSDD  5%  " 

.ea. 

$ 

.59 

Less  Than  1 00 

DSDD  5  W " 

.  .ea. 

$ 

.79 

Less  Than  1 00 

SSDD 5% "  

.  .ea. 

$ 

.69 

SONY  DSDD  3K"   ... 

.  .ea. 

$2.05 

DATASOFT 

Commodore  64/12B 

O'Riley  Mine  (D/C) $5.95 

Dallas  Quest  (0) $5.95 

Mancopter  (D) $5.95 

ATARI  XL/XE 

Pooyan  ID/C) $5.95 

Moon  Shuttle  (D/C) $5.95 

ATARI,  INC. 

ATARI  XL/XE 

Juggle's  Rainbow  (C) $2.99 

Juggle's  House  IC)  $2.99 

States  a- Capitals  (C) $1.99 

My  First  Alphabet  (D) $2.99 

TIMEWORKS 

COMMODORE  64/128 

Money  Manager  (D/C) S5.95 

Electronic  Checkbook  (D/C)    .55.95 
Data  Manager  (D/C) $5.95 

ATARISOFT 

APPLE 

Defender  (D)   $2.99 

Dig  Dug  ID) ....$2.99 

Robotron  ID)  $2.99 

Pac  Man(D) $2.99 

Centipede  (D) $2.99 

Donkey  Kong  ID) $2,99 


ALL  TITLES  OIM  DISK  UNLESS  MARKED  (R)  FOR  ROM  CARTRIDGE 

Order  Line  WE  CHECK  FOR  STOLEN  VISA  &  MASTERCARD  Customer  Service 

1  iU\n  ono  n'i'il  &  Ohio  Residents 

i-OUU  ZOi£  UJW  lyj.p  iQ  a.m.-B  p.m.;  Sat.  10-3  ET  1  c-|o  070  quoq 

ORDERS  ONLY!  Sales  Personnel  Do  "^  l-Ol  J-»/ll-»0»9 

Not  Have  Information  on  37  s.  Broad  Street,  Fairbom,  OH  45324 

Previous  Orders  or  Product  Specs. 


SOFTWARE  ONIY  -  Prepaid  OTders  ouer  $S0  tEceiwo  Iree  sllipping  via  UPS  in  conlinenlai  U.S.  Please  add  S2  orders  under  *S0.  HARDWARE  i 
:    orders  requiring  shipment  via  U.S.  Post  Office  are  subject  lo  additional  freight  charges.  Add  S5  for  COD  orders.  VISA/MasterCard  orders  add  S3  seruice 
H[7I^H    charge.  Ohio  residents  add  5.5%  sales  ta».  Personal  checks  require  a  three-week  wailing  period.  No  waiting  when  paid  hv  credit  card,  certified  check 
Of  money  order.  All  items  subject  to  availability  and  price  change.  PLEASE  CITE  AD  NUMBER  WHEN  ORDERING.  ALL  RETURNS  MUST  BE  ACCOM 
PANIED  BY  AIM  AUTHORIZATION  NUMBER. 


$5  TALKING  DISK 

OVER  1 00  WORDS  in  vocabularies  that  you  can  put  into 
your  own  programs!  No  extra  hardware  required.  Sam- 
ple programs  include: 

•  Talking  four-function  calculator  —  choose  English, 
Spanish,  or  German. 

•  Talking    keyboard   —   letters   and    punctuation    in 
English, 

•  Demonstration  of  voice  editing. 

The  $5  Talking  Disk  is  available  for  Commodore  64, 1 28, 
Atari  800, 800XL.  130XE,  and  Apple  11+  (64K),  lie,  and  lie. 

If  you  want  to  make  your  own  vocabularies,  in  any  lan- 
guage or  accent,  then  you  must  have  a  VOICE  MASTER 
for  processing  speech  input.  VOICE  MASTER  lets  you 
do  much  more:  YOU  CAN  RECOGNIZE  SPOKEN 
COMMANDS  and  WRITE  MUSIC  AS  YOU  HUM!  And 
affordable  too  —  under  $90  including  the  headset  and 
microphone. 

Send  $5  for  the  talking  disk.  Prepaid  orders  only. 
Includes  postage.  ($7  outside  USA,  Canada,  and  Mex- 
ico.) Information  on  VOICE  MASTER  will  accompany 
your  disk.  Or  you  can  call  or  write  for  VOICE  MASTER 
information  separately.  Please  specify  computer  make 
and  model  with  your  order. 

cos/ox  Inc. 

675  Conger  St.,  Dept.  C! 
Eugene,  OR  97402 
Telephone  {503}  342-1271 


r ---""- ■» 

COMMODORE  REPAIR  CEIMTER 
1-800-772-7289 

IN  ILLINOIS  (312)  879-2888 

42.95*      AMIGA  Repair   CALL 

C64  Power  Supply  .34.95 


C64  Repair  itpu,^, 

1S41  Repair 79.95* 

1541  Alignment 

only   29.95* 

CI 28  Repair  i,p-p«,i.  79.95* 


CBM  &  AMIGA  PARTS 
Call  (31 2|  879-2350 


"Includes  parts,  labor  &  UPS  reiurn  shipping.  APO/FPO  or 
/\ir  Freight  add  SI 0.00 

CAU  BEFORE  SHIPPING,  VISA,  MASTERCARD  OR  MONEY  ORDER 

24-48  Hrs.  Turnaround  (Subjea  to  parts  availaSilityl 
Diagnosis  fee  of  $25.00  for  any  unit  altered  or  with  no  defects, 


SAVE  YOURSELF  SOME  MONEY 

Due  to  our  vast  experience  in  repairing  64s  we  have  found  tfiat 
the  power  supply  is  a  major  cause  of  board  failures.  By  inserting 
our  device  between  the  power  supply  and  computer  over  63% 
of  our  customer's  repairs  would  have  been  avoided.  For  only 
S 1 9.95  our  C64  Over  Voltage  Sensor  will  continuously  monitor 
your  power  supply  output.  If  an  overvoltage  occurs  the  Over 
Voltage  Sensor  will  prevent  damage  to  your  64. 

64  OVER  VOLTAGE  SENSOR  $19.95 


L^^ 


TEKTOINJICS  PLUS,  INC. 

150  HOUSTON  STREET 
BATAVIA,  I L  60510 


CLIP  AND  SAVE 


Commodore  Compatible 
and  only.  ..$139  00 


BEfiTLEB 


^^S\    -  -ft ■«-- 

^^*    ALICE  VOBR  UP 


OE 

TIHE  IS  UP 

CURISIftL  13 

fMtK  f4 


FSD-1  51/4  "Disk  Drive 
Directly  replaces  the  Commodore  1541  disk  drive. 

Check  these  Features 

•  Huns  all  C-et  Software  —  Including  heavy  copyrighl  proiecied  soltware 

•  Full  6  monih  warranty  —  your  assurance  of  quality 

•  Heavy  duty  construclion  —  to  run  whisper  quiet  and  smooth  year  after  year 

•  Buill  in  24  watts  solid  state  power  supply  —  runs  cool  anC  efficient  always 

•  Vented  melal  chassis  —  elimmates  most  radio-frequency  interference 

•  Dual  serial  ports  with  ctiaining  option  for  expandability 

•  External  device  number  switches  —  lor  use  as  second  dish  drive 

•  Save  and  replace  capability 

•  Positive  lever  loci^ing  system  —  to  eliminate  "Pop  out"  problem 

•  Standard  S'A"  SSSD  Diskette,  175K  storage  capacity,  310  RPM  running 
speed,  90  Sec.  format  time.  1200  BPS  data  transfer  —  same  as  Ihe  1541 

•  Compatible  with  C-128  in  C-&4  mode 

To  Order  Call  Toll  Free  1-800-356-5178 

Visa  &  MasterCard  welcome.  Credit  Card  orders  stiipped  in  24  hrs.  Allow  SBOO 
shipping  and  handling.  Send  mail  order  with  payment  to: 


:  ^  Emerald  Component  InlernatlonBl    Dept.    N 

'   =  541  Willamette  Street 

i    S^  Eugene.  OR  97401 

—  Tel.  503-683-11S4 


Soft  Pn 


RdcK  ChftlietigE 


Greatest  party  game  ever !   Hundreds  of  songs 
in  one  of  the  most  challenging  and  fiin  games  out 
for  the  Commodore.   No  two  games  ever  alike  ! 
Up  to  5  players  at  a  titne. 

With  Rock  Challenge  Group  Editor  you  can  add 
your  favorite  group's  titles  and  save  them  lo  yout 
own  data  disk.   Later  when  the  group  comes  out 
with  more  songs  just  add  them  to  your  data  disk 

Example;  You  choose  to  play  the  Beatles  with 
35  songs  to  play.  The  program  chooses  one  of  the 
over  ;00  songs  and  places  as  a  series  of  dashes. 
Player  i  guesses  a  letter  in  the  song,  if  there  he 
wins  a  point  and  continues  his  turn  till  he  guesses 
wrong  or  solves  the  song  for  a  5  point  bonus. 
FAST  MACHINE  CODE  PROGRAM 

Or>ly  $14.95  +  $  1.50  Postage 
Send  check  or  money  order  to: 

Sof tPace  Software  Co. 

P.O.  BOX  788 
Brea,  CA.  92622-0788  

Visa  or  Mastercafci  call; 
(800)  225-6207 

in  California  call: 

(714)  524-0343 


^^^^^g 


Classified 


COMPUTE)  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capital 

letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire  ad  set 

in  boldface  (any  number  of  lines.)  Inquire  about  display  rates. 
Terma;  Prepayment  is  required.  Check,  money  order,  American  Express,  Visa,  or 

MasterCard  is  accepted.  Make  checks  payable  to  COMPUTE!  Publications, 
Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 

printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline 

words  to  be  set  in  boldface. 
General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must 

supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  next  available 

issue  after  receipt. 
Closing:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes  March 

10th).  Send  order  and  remittance  to;  Harry  Blair,  Classified  Manager,  COMPUTE!, 

P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry  Blair  at 

(919)  275-9809. 
Notice;  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  clairt<s  of 

advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


SOFTWARE 


FREE  SOFTWARE  for  C64,  C128,  IBM,  &  CPM. 
Send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  U42-A1,  Orange  Park,  FL  32067 

DISCOUNT  SOFTWARE:  Amiga/ Apple/ Atari/ 
C64-1 28/IBM  PC-PCjr/TR5-80/Timex/5inclair. 
Free  Catalog:  WMJ  DATA  SYSTEMS, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

COMMODORE:  TRY  BEFORE  YOU  BUY. 
Best  selling  games,  utilities,  educational,  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC.  Free 
brochure.  RENT-A-DISC,  Frederick  Bldg.  #345, 
HunHngton,  WV  25701  (304)  529-3232 

BRIDGE  GAME  PROGRAM  $39.95  demo  disk  $5. 
1  to  4  players  for  IBM,  Apple,  TI99,  TRS80,  C64, 
128,  +.4.  16,  VIC.  Authors  John  &  Lynda  Allan, 
Box  313,  Azilda,  Ontario,  Canada  POM  IBO 

ATARI  8  BIT:  FULL  FUNCTION  BUSINESS 
DBMS.  Any  drive(s)/upgrades.  GL/AR/AP/Inv/ 
Mail/W/F.  9000  records/disk.  MiCROMOD, 
1635-A  Holden,  Orlando,  FL  32809  (305)857-6014 

$$  WIN  WITH  THOROUGHBRED  HARNESS  & 
Greyhound  handicapping  software., .$29.95, 
enhanced. ..$49. 95.  For  most  computers.  Free 
Info.  Software  Exchange,  Box  5382  CP,  W. 
Bloomfield,  MI  4S033.  Call:  (313)  626-7208 

FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  Programs  on  50 

diskettes.  $5  each  plus  $1  shipping  per  order. 

Send  $1  for  catalog  (refundable  with  order.) 

C&H  ENTERPRISES 

PO  Box  29243,  Memphis,  TN  38127 

Update  &  Analyze  your  income  and  expenses 
with  INCOME  ANALYSIS.  Menus,  hardcopies, 
totals,  averages,  percentages,  summaries,  fast- 
edit,  sound  &  more.  A  MUST  for  part-time 
employees!  Atari  481C  Disk  only  $12.95. 
DATA  LOGIC,  FOB  52193,  Livonia,  MI  48152 


THE  PICKS-86.  PRO  FOOTBALL  PICKING 
GAME!  Compete  against  your  friends.  Computer 
keeps  track  of  stats.  Send  only  $12. 
Epic  Software,  Box  1153,  West  Hanover,  MA 
02339,  Apple  II  family,  1  disk  drive -I- printer. 
Send  SASE  for  more  information. 

PRO  FOOTBALL  ANALYST.  Beat  the  spread! 
Only  5  min./wk  &  local  newspaper  is  all  it  takes 
to  find  hidden  overlays  in  the  betting  line.  Win- 
ning season  guaranteed!  lBM/C64/TI99-$34.95 
{+  $4.55  s/h)  ORDER  NOW!  1-800-341-1950 
Ext.  77.  Mail  Orders:  RIDGE,  170  Broadway 
#201-C,  NYC,  NY  10038.  Catalog. 


LOTTO  PICKER.  Improve  your  chances  for  those 
Million  Dollar  Jackpots!  Picks  LOTTO,  WIN-4 
and  Daily  Numtjers.  All  USA  &  CAN.  games 
incl'd.  Expandable!  IBM/C64/TI99-$29.95.  Order 
Now!  1-800-341-1950  Ext.  77.  Mail  Orders: 
Ridge,  170  Broadway  #201-C,  NY,  NY  10038. 
Catalog, 

PRINT  YOUR  OWN  BUSINESS  STATIONERY 

Use  your  dot-matrix  printer  and  this  Business 
Papers  Kit  to  make  personalized  invoices,  letter- 
heads, business  cards,  memos,  etc.  from  plain 
paper.  Try  before  you  buy.  Send  $7.50  to: 
Honor-System  Software,  Box  338,  Medinah,  IL 
60157,  Specify  Apple  II  or  C64. 

SELL  YOUR  PHOQBAMS  to  Software  Publishers. 
Software  for  the  Apple,  Atari,  Commodore,  IBM, 
TI,  TRS-80,  Zenith,  Osborne,  Kaypro,  others. 
Directory  S5.95.  I.W.,  Box  40581,  Pas.,  CA  91104 

TI-99/4A  QUALITY  SOFTWARE  for  Business, 
Home  and  Entertainment  **  Bonus  Software 
Offer!!"  Send  for  FREE  catalog  to  MICRO-BIZ 
HAWAII,  BOX  1108,  PEARL  CITY,  HI  96782 


HARDWARE 


Clone  Kits,  Modems,  Hard  Drive  Kits,  Disk 
Drives,  Diskettes,  Printers,  Memory  &  ICs 
Distributor  Pricing  to  End  Users  and  Dealers. 
Free  Shipping.  For  Catalog  Call  1-800-833-2600, 
In  Ohio  (513)  531-8866 


MISCELLANEOUS 


IBM  PCjr  REPORT:  THE  NATIONAL  NEWS- 
LETTER. PCjr- specific  articles,  reviews.  Public 
Domain  from  across  the  nation,  $18/yT. 
PCjr  CLUB,  POB  95067,  Schaumburg,  IL  60195 


\  100%  ERROR  FREE 

MFR.  LIFETIME  WARRANTY 

Wth  Hub  Rings,  wnie  Pfo(en  Talis. 
Ty\«c  Envelopes.  User  ID  Latwis  - 
In  factorv/SealKj  Poly  Packs 
(YOU  GET  EVERYTHINti  BUT  THE  BOX) 
pniCESAREPER  DISK 


5V. 

" 

3W 

SSDD 

DSDD 

DSHD96TPI 

SB 

DS 

.47 

.52 

1.69 

1.39 

1.60 

SUPER  DISCOUNTS  ON  ORDERS 
OF  500  OR  MORE 

IN  STOCK  ITEMS  SHIPPED  IN  24  HOURS 

Minimum  order  S25.00  Shipping  anri  Handling: 
S4.00  per  too  diskettes.  Continental  U.S.A.  APO/ 
PFO.  add  58.00  per  1 00  diskettes.  Foreign  order, 
please  call.  Reduced  shipping  charge  for  larger 
quantities  CO  D  addS^-OO  Cash/ceriifiedcheck 
Ml  residents  add  d%  safes  lax.  Prices  subjecl  lo 
change  witriout  notice.  HOURS:  8:30  AM  -  6:00  PM 
Eastern  Time  -^  caD  J^P 

Precision  Data  Products 

P.O.  Box  S36T.  Grand  Rijiids.  Ml  495 IB 
(616)  452-3457  •  Michigan  1-800-652.2468 
Oulsidc  Michigan  l-S()0-2S8-002S 
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DISK  SALE! 

PREMIUM  QUALITY!  LIFETIME  WARHANTYl 
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MORE  GREAT  PRICESl 


LiairjkRr  disk  ktorace  cam,  cimm  pu^iH  efio  «««**,  la  m  M  So 

fLIP-TOP  &IS«  riLSS,  lK>l(li  TO  (•it^K  vnoM<d  pbullr  tf  70  VBM 

UNI-NfMCH  DISMETTE  NOTCHEd.  KCMici  and  ikl«  al  HiV  kNVI  ST.7T 

COMPUTER  M«lUHG  LABELS,  .la  S  tlii«t  i  3  5"° LAB  St9  bm  al  &«» 

HEJIQ  Cleaner  kit,  l  Elrajivr  dlU  M.  halrtrni.  1  S  utat!  ?HCH  HiS 

DB33  CEMDER  CKAH&ERS,  gll  pint  «b-rdL  Ch^M  MM  [:MMCC|  or  F  F  [FTCC}«r.77 

RI8HDNS  FOR  OKIDATA  tO  41  BZ  a2A.U'l3<^)Z'93  ^PniHO  f2.1S«*  12  121£S 


iMp  vrwn  itf^punt  (q  If  hncd*,  PHin  •fhoai  piiH-[h4ti  M-dvr  IIDO.  TOW  Uillacti.  All 
*i*tt*  •a«l  bKlbtda  tafilm*  pJioM  wd  STRIET  adrixtL  MQKCT  RjtCH  lO-DAV 

UTltFunOM  DuiUiijiTm  1£nd  roR  ritEi  catiloc  liitihc  ioq-k  or 
:  KAItaAIMf : 


20-U  HURLEY  SrR£ET 

CAMBRiDCE.  MA  02141-2176 

lNMASS{617)"UNtTECi 


UNITECH 


(S00)343-0472 
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CONVERSE  WITH 
YOUR  COMPUTER 


AT  LAST!  A  f  ULL  IHPLEMENTATIOK  of  Ihe  original  ELIZA  program 

IS  now  available  Id  run  on  your  personal  computer^ 

Created  at  MIT  in  1966.  ELIZA  has  become  ihe  world's  most 

ceiobraled  artificial  Intelhgence  demonsiralicn  orc^gram.  ELIZA  is  & 

non-directive  psycholherapist  who  analyzes  each  statemenl  as  yoit 

typeilinandinen  responds  wilhharowrcommentor  question— ar>d 

tier  remarks  are  often  aitia;ingly  appropriaiel 

Designed  to  run  on  a  large  mainlrame.  ELIZA  has  never  before  been 

available  10  personal  computer  users  eircept  in  greatly  stripped  down 

versions  lacking  the  suphistii^ation  wfrich  made  Ihe  original  program 

so  fascinating 

Now.  our  now  personal  computer  version  possessingthe  FULL  power 

and  range  of  eipression  of  the  original  is  t>eing  offered  at  Ihe 

introductory  prjceolQnly£4S.  And  10  lei  you  lindouthow  s^edoesil 

(or  leach  her  to  do  more)  we  have  lr^cluded  the  complete  SOURCE 

PROGRAM  (written  in  BASIC} atnoextracosi 

Order  your  copy  of  ELIZA  today  and  you'll  never  again  wonder  how  10 

respond  when  you  hear  soneone  say.  "Okay,  let's  see  what  tt^ls 

computer  of  yours  can  actually  do!" 

READ  WHAT  THE  EXPERTS  SAY  ABOUT  OUR  VERSION  OF  ELIZA: 

'Muct^  mots?  than  a  mere  gan^e.    You'll  be  impressed  with  ELIZA.    A 

CO  nvir.cing  demonstration  of  Artificial  Intelligence" 

-PC  UtGAZINE 

"Delrgtttful  entertainment  ..An  Ideai  medium  for  showing  off  your 
system"  -UlCROCOUPUTIHa  MAGAZINE 

"ELIZA  isan  astounding  piece  of  software  ,- A  lascinating  program  to 
use  and  study."  -BAHON'S  KUCROCOUPUTIH  flfPOflTS 

"ELIZA  is  a  greet  way  to  introduceyour  friends  to  computers.. .A  very 
tunny  party  game  "  -PETEfl  A.  UcWIUIAMS 

ELIZA  IS  an  exceptional  program,  one  that's  tun  to  use.  shows  off 
your  machine,  and  has  great  historical  interest  ' 

-POPLILAfl  COMPUTING  MAGAZINE 
"This  version  of  ELIZA  13  the  best  we  have  seen.  As  a  party  game,  it  is 
unmatched"  -HOME  APPLICATIONS  fOfl  THE  C-6J 

ELIZA  IS  AVAILABLE  IH  THE  FOLLOWING  FORMATS: 

•  IBM  PC.  PCjr..  PC-XT  and  all  riompatibles. 
■  All  Apple  II  computers  III.  It  Pius.  tie.  ltd 
■Apple  Macintosh  {Microsoit  BASIC  required) 

•  Commodore  64  (specily  disk  or  cassette) 
■5'/4incti  or  8  inch  dist^  tor  all  CP/M  systems 

All  versions  are  145  and  include  a  SIX  page  users  manual 

Please  add  S?  00  shipping  and  handling  to  al  I  orders 

(Calilornia  residents  please  add  ^ViVi  sales  lax) 

ARTIFICIAL  INTELLIGENCE  RESEARCH  GROUP 

921  North  La  JQlla  Avenue.  Dept,  W 

Los  Angeles,  CA  90046 

(2131656-7368    (213)654-2214 

fJC,  VISA  and  checks  accepted 


SJxLC  c=iJ2.ixit   c^o/injatf,   Una. 

DATAFILER 128  -  Database  program  for 
the  C128'  in  128  mode.  Store,  sort, 
recall  by  up  to  20  fields.  Store  up  to 
5000  name  and  address  records  on 
single  diski  Also  Includes  special 
options  for  mailing  labels,  program 
library  &  film  library.  Disk  -  S24.95 

The  Great  War  -  WWI  strategy  game  for 
Ihe  C128*  in  128  mode.  Armies  of  16 
countries  In  conflict.  Military  strategy 
conditioned  by  terrain,  weatfier,  lines 
of  supply,  political  consideration,  troops, 
weaponry.  For  advanced  wargamers. 
Disk-S19.95 

BASICally  SIMPLE  128 -How  to  use  ail 
C128'  commands  S  functions  in  Basic 
programs.  C128"  only.   Disk-S19.95 

Music  ol  the  Masters  -  One  hour  of 
classical  music  on  disk  tor  the  C64'- 
H/lozart.  Beethoven,  Handel  &  many 
more.  Disk  -  S9.95 

Music  fli  the  Masters.  Volume  II  -  More 
great  classical  music  on  the  disk  for 
theC64"  Minuets,  waltzes,  sonatinas 
&  more    Disk  -  S9.95 

SPECIAL  OFFER!  Order  both  volumes  of 
Mustc  of  the  Masters  for  only  S16.95! 

FREE  SHIPPING  &  HANDLING.  Iflinois 
residents  add  7%  sales  tax.  Send 
check  or  money  order  to: 

Free  Spirit  Software.  Inc. 
5836  S.  Mozart 
Chicago,  IL  60629 

•Registered  trademarks  of  Commodore 
Infernattonal,  Ltd. 


COMPUTErs  Disk 

YES!  I  want  to  save  time  and  money.  Please  enter  my  quarterly  subscription 
to  the  following  COMPUTE!  Disk: 

n  Commodore       D  Apple       D  Atari       CI  IBM 


rojTcs; 


D  Save  33%  off  the  single  issue 
price.  1  year  subscription,  $39.95 

At!  Disk  orders  must  be  prepaid 

D  Payment  enclosed  (check  or  money  order) 


D  Save  even  more!  2  year  subscription, 
$69.95 


.*£ 


Charge    D  MasterCard    D  Visa 
Acct.  No. 


Exp.  Date . 


Signature . 
Name . 


Address 
City 


State. 


Zip. 


(Outside  U.S.  and  Canada,  add  S9.00  per  year  for  shipping  and  handling.) 


J1841 


BUSINESS  REPLY  MAIL 

FIRST  CLASS      PERMIT  NO.  7551      DES  MOINES,  lA 
POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 


NO  POSTAGE 
NECESSARY 
IF  MAILED 
IN  THE 
UNITED  S'ATES 


COMPUTEI'sDISK 

P.O.BOX  10036 

DES  MOINES,  lA  50347 


TRY 


COMPUTERS 
FOR  10  DAYS 


YES,  I  would  like  to  examine 
Computer  Basics  free  for  10 
days,  Also  send  me  future  vol- 
umes under  terms  described  in 
tills  ad, 


D1A3Y9 


name_ 


address. 


state  or 
.province- 


zip  or 

postal  code 

All  orders  subject  loapprmal  Price  subject  to  ctionge 
Canodion  residents  mail  in  envelope. 


IIME] 

Dm 

BOOKS 


NO  POSTAGE 

NECESSARY 

IF  MAILED 

IN  THE 

UNITED  STATES 


BUSINESS  REPIY  MAIL 

FIRST  CLASS     PERMIT  NO.  85407      CHICAGO  ILLINOIS 


POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 

rriMEi 

Dm 

BOOKS 

TIME  &  LIFE  BUILDING 
CHICAGO,  ILLINOIS  60672-2058 


l.ll..llH..il..l...l..l.lMl,lll..„l.l.l..l.,l„ll 


I 
COMPUTEI's 
FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue.  Cieariy  print  or  type  your  fuil  name  and  address. 
Oniy  one  cord  shouid  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index. 

Send  in  the  card  and  the  advertisers  will  receive  your  inquiry,  Al- 
though every  effort  is  made  to  insure  that  only  advertisers  wishing  to 
provide  product  information  hove  reader  sen/ice  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers, 

Please  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P.O.  Box  5406,  Greensboro,  NC  27403.  Checl< 
the  expiration  date  on  the  card  to  insure  proper  handling. 

Use  these  cards  ond  this  address  oniy  for  computei's  Reader  Infor- 
mation Service.  Do  not  send  with  payment  in  any  form. 


COMPUTE! 


101  102  103  104  105  106  107  108  109  110  111  112  113  114  115  116  117 
118  119  120  121  122  123  124  125  126  127  128  129  130  131  132  133  134 
135   136   13?   138   139   140   141   142   143   144   145   146   147   148   149   150 


152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167 

169  170  171  172  173  174  176  176  177  178  179  180  181  182  183  184 

186  187  188  189  190  191  192  193  194  195  196  197  196  199  200  201 

203  204  205  206  207  208  209  210  211  212  213  214  215  216  217  218 

220  221  222  223  224  225  226  227  228  229  230  231  232  233  234  235 

237  238  239  240  241  242  243  244  245  246  247  248  249  250  251 


151 
163 
185 
202 
219 
236 
252   253 


Pleo5e  let  us  know.  Do  you 


own: 

a 

370 

□ 
272 

D 

n 

276 

D 

27B 

D 

280 


plan  to  buy: 


Apple . 
Atari  _ 


Commociore 

IBM 


TI-99/4A 
Other  _ 


(specify  model) 


D 

271 

D 
273 

D 

275 

D 

277 

n 

279 

D 

281 


Please  print  or  type  name  and  address, 
Limit  one  card  per  person. 

Name 

Address 

City 

state/Province 

Zip 

Country 

Ptione 

Please  Include  ZIP  Code 


Explrotbn  Dote  10  31 '86 


C0984 


SUBSCRIBE 

TO 

COMPUTE! 


For  Fastest  Service, 
Call  Our  Toll-Freo 

US  Order  Line 

In  U  call  1-S00-S32-1272 


D  $24.00  One  Year  US  Subscription 
D  $45.00  Two  Year  US  Subscription 


Name 

Address 

City 

State 

Zip 

n  Payment  Enclosed 
Charge  my:  D  VISA 
Account  No, 

D  Bill  me 
D  MasterCard 

n  American  E 
Expires 

xpress 
/ 

VOk-r  subscription  wj(l  begin  with  the  next  ovaJioble  issue  Please  allow  d-4  week*  for  delivery  of  first  lisuo.  Subscription  prices  subject  to 
Chonge  at  any  t*nne  Outside  the  USA  pleose  odd  S6  for  each  subscription. 

jm  ID 


Place 

Stamp 

Here 


COMPUTE!  Reader  Service 

P.O.  Box  2141 
Radnor,  PA  1 9089 


NO  POSTAGE 

NECESSARY 

IF  MAILED 

IN  THE 

UNITED  STATES 


BUSINESS  REPLY  MAIL 

FIRST  CLASS  PERMITN0.7478  DES  MOINES,  IOWA 


POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 


COMPUTE! 

PO  BOX  10954 

DES  MOINES,  IOWA  50347 


^t  /  /  /  vT .  - 


'^  I  -ViV  I  ^wvl  ^mfii  t^\  'm^\  -mmXt^  i^\  <4b>\  w\  •w^V Wi^"^ 
■~^  r  i^ImT  «Mil\iM>T  «mT  «>->T  ^.«\  ^^\  «»\  ri^  tiaJi^^SnpaVW^ 


iBi 


D 


homson  offers  a  whole  new  world  of  graphics 
capabilities  for  your  Commodore  or  Apple  IIC  or  HE 
computers.  Anil  Thomson  offers  you  more  than 
the  competition. 

Thomson  monitors  offer  these  advantages: 

•  Compatible  with  IBM/  Apple;  Commodore;- Atari'" 
and  others 

•  The  choice  of  monochrome  or  color  monitors  with 
TV-grade  to  high  resolution  text  and  graphics 

•  Monochrome  text-editing  mode  for  color  monitors 

•  Alternate  use  as  cable  or  VCR  monitor 

•  Broad  range  of  the  features  you  need  at  the  prices 
you  want 


Because  of  its  versatility  and  compatibility,  you  can 
still  use  your  Thomson  monitor  if  you  switch  computers; 
you'll  never  outgrow  the  capabilities  of  a  Thomson 
monitor. 

Who  is  Thomson?  Thomson  is  a  six  billion  dollar 
multi-national  company  Unlike  our  competition,  we 
design  and  manufacture  our  own  monitors;  so  the  quality 
you  get  is  constant  and  superb. 

Your  Apple  or  Commodore  computer  is  a  great  body. 
Choose  a  Thomson  monitor,  and  give  it  a  beautiful  face. 

For  the  name  of  the  Thomson  dealer  nearest  you, 
call  1-800-325-0464.  In  California  call  1-213-568-1002. 
(Monday-Friday,  9  a.m.  to  5:00 p.m.  PSTJ 


THOMSON  D 


A    SIGHT  FOR  SORE  EYES. 


TM 


^)  W86  Thomson  Consumer  Producfs  Corporation       573}  W.  Slauson  Avenue.  Suite  tJl  Cutver  City.  CA  90230 

ThximsanhalwdemsrkofThamsanS.A.ApplsharegislefsduademafkofAppfeCompiitefJfiC.CommoaofetsaiBgis^^^ 

Atari  isa  trademark  of  Atad,  Inc.  IBM  is  a  regi.'iteredtredemaikBlhietrtaUonal  Badness  Machines  Corp. 


From  Origin  comes  the  lonjg-awaited  seguel 
— -  -  i     to  the  award-winning 

i  Ultima™  III 


Questof  the 
tmsBssm.  A/atar 

A  state-of-the-art  fantasy  role- 
playing  game  of  unprecedented 
magnitude  by  Lord  British™. 


repare  yourself  for  a  grand 
adventure:  Ultima™  IV, 
sixteen  times  larger  than 

_. :  Ultima  III,  is  a  milestone  in 

computer  gaming— one  that  challenges  - 
your  physical  and  mental  skills  while 
testing  the  true  fabric  of  your  character. 

Enter  Britannia,  kingdom  of  Lord  r.  - 

British.  Journey  through  terrain  of  infinite 
proportions,  conversing  with  characters     - 
on  hundreds  of  topics.  Unravel  the 
mysteries  of  a  superior  magic  system.  At  each  turn  beware  of  daemons,  dragons  and 
long-dead  wizards  haunting  the  most  tranquil  of  places.  Encounters  with  parties  of 
mixed  enemy  types  test  your  strategic  abilities.  Shrewd  use  of  terrain  can  lead  to  - 
victory  against  seemingly  impossible  odds. 

Survive  this  multi-quest  fantasy,  then  begin  the  final„conflict,  your  qiiest  of  the 
Avatar.  The  ultimate  challenge— the  self— awaits.... 


"sysrs/vs  //vc.  A^O  HARVEY  ROAD,  MANCHESTER,  NH  03103  (603)  644-3360 


ULTIMA™  III  sends  you  on 
an  incredible  fantasy  role- 
playing  journey  through 
monster-plagued  Sosaria  in 
search  of  the  elusive 
Exodus. 


MOEBIUS'^  lakes  you 
through  the  elemental 
planes  of  a  colorful  Orien- 
tal world  of  fantasy  and 
adventure  in  search  of  the 
Orb  of  Celestial  Harmony. 


AUTODUEL™  is  a  futuristic,      OGRE™  is  a  sjrategy  game 


fast-paced  strategy  role- 
playing  game  where  the 
right  of  way  goes  to  the 
biggest  guns. 


fought  on  die  nuclear  bat- 
tlefield of  Ifttftfcrrow  as  an 
inhuman-juggernaut  Cyber- 
tank  battles  conventional 
forces. 


Ultima  and  Lord  British  are  trademarks  of  Richard  GarrlDlt/Moebius  is  a  trademark  of  Greg  Malone/ AuloDud  and  Ogre  are  trademarks 

of  Sieve  Jackson /Apple  is  a  trademark  of  Apple  Computer  Inc /Previous  Ullirnas  arc  not  needed  to  enjoy  Ultima  IV        Authors  wanted.  Call  ns  (odajr. 


